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/ y a quelques 
semaines, nous 
_yous avions 
annoncé la sortie 
de Micro Flash. 
Chaque abonné 
devait recevoir tous 
les deux mois un 
exemplaire en 
remplacement du 
hors série gratuit. 
Un événement 
important nous a 
fait reculer la sortie 
de cet hebdo. En 
effet, un grand 
groupe souhaite 
s'associer à notre 
initiative et faire en 
sorte que notre 
projet déborde les 
frontières de 
l'hexagone. Nous 
avons donné notre 
accord et il reste à 
mettre en place les 
structures, juridiques 
entre autres. C'est 
la raison pour 
laquelle nous 
reprenons 
provisoirement la 
sortie des numéros 
hors série. 
Bonne lecture à 
tous et peut-être à 
demain en direct 
sur 3615 MHZ ! 

S. FAUREZ 
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Tout programme BASIC a 
besoin de nombreuses variables ; 
certaines ont été amenées par le 
programme, lors du LOAD, 
d'autres sont créées par 
l'utilisateur après le RUN, par 
des INPUT par exemple. Il faut 
donc de l'ordre et de la méthode 
pour éviter que le programmeur 
finisse par s'y perdre, pour 
éviter de gaspiller inutilement des 
kilo-octets et aussi pour se 
mettre à l'abri de bugs fantômes 
donc très difficiles à débusquer. 
En résumé, nous parlerons 
surtout du bon usage des DIM, 
des DA TAS, des DEF FN et des 
"flags". 



Les avantages des dim 

Le rôle des tableaux DIM est de stoc- 
ker des variables "indicées", c'est- 
à-dire "numérotées". Prenons le cas 
de 26 variables chaînes que l'on 
aurait appelées AS, BS... jusqu'à 
Z$. Pour les afficher à l'écran, par 
exemple, on serait obligé de les 
appeler 26 fois séparément : PRINT 
A$:PRINT B$:etc. Bon courage ! 
Alors que si elles ont été mises en 
variables indicées dans un DIM 
A$(26), cela se résume à une seule 
ligne : 

FOR N = 1 T0 26: 
PRINT AS(N):NEXT 

Notre exemple était simpliste puis- 
que ce DIM A$(26| n'a qu'une seule 
"colonne" (et 26 lignes}. Mais l'in- 
térêt devient plus évident avec les 
tableaux DIM à plusieurs colonnes. 
Exemple : = nom ; l=adresse; 
2 =code postal ; 3 = ville ; 
4 



4 = téléphone, avec par exemple 
200 "lignes" donc un DIM 
AMI$(200,4). Imprimons les 
"lignes-fiches" habitant Toulouse : 

410 FOR N=l TO 200 

420 IFAMI$(N,3)< > "Toulouse" 

THEN 450 
430 FOR R = TO 4:PRINT#8, 

AMI$(N,R);" ";:NEXT: 

PRINT#8 
440 NEXT 
450 NEXT 

C'est clair, c'est net, c'est' court à 
écrire. Même simplicité pour sauve- 
garder ce précieux "fichier DIM" 
sur disquette ou cassette sous forme 
de "fichier ASCII". 

810OPENOUT "FICHIER" 
820 FOR N = l TO 200 : FOR 

R = 0TO 4 
830 PRINT#9, AMI$(N,R): 

NEXT:NEXT 
840 CLOSEOUT 

Pour le chargement, c'est pareil : on 
remplace "OUT" par "IN" et 
PRINTJJ9 par LINE INPUT#9. 
Donc, dans ce cas, quatre petites 
lignes BASIC ont été suffisantes pour 
manipuler 1000 variables ! Bravo 
les DIM ! 

En règle générale, on a intérêt à 
mettre en DIM le plus grand nombre 
de nos variables, même pour une 
petite liste de six mots (ou nombres) . 
Le seul inconvénient des variables 
avec "noms indicés" est le côté 
"numéro matricule", beaucoup 
moins clair dans un listing qu'un nom 
"spécifique" genre JOUR$ = 
"MARDI"ouTOTAL=1412. De ce 
fait, il est vivement conseillé d'insé- 
rer des lignes de REM pour légen- 
der. Exemple : 



120 ' = nom ; 1 = adresse ; etc. 



Les lois des dim 

L'indice zéro existe. Ainsi, DIM 
A$(26) peut renfermer 27 valeurs de 
à 26. Idem pour les colonnes : DIM 
AMI$(200,4) possède cinq colonnes 
de à 4, et 201 lignes ; soit 
5x201 = 1005 "cases" ou "cellu- 
les". Chaque case est une variable 
dont le nom est composé du nom du 
tableau suivi du numéro de ligne et 
du numéro de colonne. Exemple : 

AMI$(145,3) = "TOULOUSE" 

Il arrive souvent que lo ligne zéro 
soit sacrifiée, inutilisée, ou réservée 
aune utilisation spéciale. Par exem- 
ple, la ligne zéro d'un tableau chaî- 
nes recevra les noms (légendes) des 
colonnes. La ligne zéro a'un tableau 
numérique recevra le total de cha- 
que colonne, etc. En revanche, on ne 
sacrifie jamais la colonne zéro (pour 
des raisons de non-gaspillage d'oc- 
tets), car généralement un tableau a 
beaucoup plus de lignes que de 
colonnes. Attention ! DIM AS(26) 
n'a qu'une seule colonne, car c'est 
l'équivalent de DIM A$ (26,0). Par 
contre, DIM B$(40,l) a DEUX colon- 
nes, zéro et 1 . 

L'ordre DIM AMI$(200,4) signifie 
"je DIMENSIONNE un tableau 
AMIS de 200 par 4". Ceci fait, le 
BASIC ne tolérera plus la moindre 
incartade, à savoir tentative de 
modification, voire même de confir- 
mation ! C'est-à-dire qu'il y aura 
plantage net avec message d'erreur 
si vous réécrivez DtM AMIS avec 
des dimensions identiques, supérieu- 
res ou inférieures. Plantage égale- 
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ment si vous désignez une case hors 
dimensions, genre AMI${201,1) ou 
AMIS (100,5). 

C'est pour cette intransigeance du 
BASIC qu'il faut prendre la bonne 
habitude de déclarer TOUS les DIM 
en DEBUT de listing, plutôt qu'au fur 
et à mesure des besoins. Ces ordres 
DIM seront ainsi sur une ligne qui 
sera à l'abri d'un éventuel "GOTO 
qui remonte" et qui déclencherait un 
plantage brutal. 

Personnellement, je déclare tous mes 
DIM sur la ligne 100 (même s'ils ne 
servent que beaucoup plus loin). 
Exemple : 

100 DIM AMI$(200,4), A$(26), 
B$(40,l), etc. 

L'ordre n'a aucune importance. 
Remarquez que la virgule évite de 
réécrire ":DIM". Avantage : en 
voulant modifier un ancien pro- 
gramme, je tombe sur la variable 
ANA(N,4). Quelles sont les dimen- 
sions de ce tableau AN A ? Je tape 
alors LIST 100 et j'ai la réponse. 
Très pratique dans un très long pro- 
gramme. J IIIm 
En outre, je réserve les lignes 1 10 à 
290 pour les REM de légendes de 
Si des modifications ultérieures impli- 
quent l'ajout de nouveaux DIM, 
ajoutez-les à la ligne 100. Comme 
elle a droit à 255 caractères (six 
lignes un quart en MODE1), vous ne 
risquerez rien... 
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La RESERVATION MEMOIRE 
DES TABLEAUX DIM 

Imaginons la décfaration suivante ; 
100 DIM P{200), N%(200), 
A$(100) ".. 

Le tabîèatrP réserve 201 nombres 
réels (de cinq octets chacun), soit 
201x5=1005 octets. Le tableau 
N%:contiendra Jusqu'à 201 nom- 
bres entiers (deux octets chacun), soit 
402 octets., C'est fixé, réservé dans 
la mémoire RAM, même si ces 
tableaux sont encore vides ! Qu'un 
tableau DIM numérique soit vide ou 
plein, son encombrement mémoire 
reste immuable. (Très important). 
Mais il en va tout autrement avec un 
DIM de chaînes, comme A$(100). 
En effet, chacune de ces chaînes peut 
avoir une longueur comprise entre 
et 255 octets. Alors, combien le 
BASIC va-t-il réserver d'octets ? 
CPC n : 33 -Avril 1988 



Réponse... TROIS par case-cellule ! 
L'explication demande un petit 
retour en arrière. 

Lorsque vous déclarez une variable 
isolée comme P$ = "Bernard", le 
BASIC stocke cela en deux endroits : 
dans le "registre des variables", il 
note que P$ est une variable de type 
chaîne, de longueur 7 octets, les- 
quels ont été placés à partir de 
['ADRESSE 33415 (par exemple). 
Plus tard, vous déclarez P$ = 
"PAUL". Dans ce même registre, on 
a longueur = 4 et adresse = 29834. 
Les codes ASCII des lettres compo- 
sant "BERNARD" sont toujours 
en place à partir de l'adresse 
33415, mais ils sont inaccessibles 
(adresse et longueur oubliées), ce 
sont sept octets qui encombrent pour 
rien notre RAM, c'est une "valeur 
morte". 

Ainsi, notre RAM renferme une suite 
de valeurs mortes et de valeurs en 
cours (=connues dans le registre). 
Seul un PRINT FRE(" ") pourrait 
faire le ménage, mais c'est très long 
(parfois 15 minutes). Revenons à 
notre DIM A$. 

Un tableau de chaînes est en fait un 
registre de variables mises sous 
forme de tableau. Dans chacune de 
ses cases, on trouve ce qu'il faut 
pour aller "pêcher" la variable en 
question, à savoir son adresse (sur 
deux octets) et sa longueur sur 1 
octet (0 à 255) ; total 3 octets. 
Autrement dit, notre DIM A$(100) 
réserve 101x3 = 303 octets. Ça 
c'est fixe. Ce que vous allez mettre 
(et renouveler) dans ce tableau est 
logé ailleurs, en vrac dans la RAM. 
Résumons par unecûmparaison : un 
tableau DIM de nombres contient les 
valeurs actuelles. En cas de mise à 
jour, l'ancienne valeur est gommée 
et réécrite en place. L'encombrement 
mémoire est constant (vide, plein ou 
après modifications). 
Un tableau DIM de chaînes ne con- 
tient que les adresses et les fon- 
gueurs. Les valeurs sont inscrites ail- 
leurs. En cas de modifications, eiles 
sont rayées et réécrites à la suite, 
d'où un encombrement mémoire 
croissant. 

IMPORTANT 

Jusqu'à l'indice dix, vous n'êtes pas 
obligé de déclarer un DIM. Ainsi, 
NB(10) = 21 est accepté sans avoir 
fait un DIM. Quand vous écrivez 
J$(l) = "Lundi", le BASIC, à votre 
insu, se déclare DIM J$(10). Donc, 



par souci d'économie et de clarté, il 
aurait été préférable en ligne 100 
de déclarer DIM J$(7) (ou J$(6), de 
à 6). 

L'ordre ERASE efface un tableau 
DIM, à la fois ses dimensions et son 
contenu. On peut alors changer ses 
dimensions. Exemple, nous avions 
déclaré DIM P(200) : 
1420 ERASE P:DIM P(350,2). 
Le principal intérêt d'ERASE est de 
libérer la place occupée par un gros 
tableau dont on n'a plus besoin ; ou 
encore de réinitialiser à zéro toutes 
les cases puis en redéclarant le 
même DIM. (C'est plus rapide !) 

Les avantages des datas 

C'est pour amener des variables en 
RAM par le lancement du program- 
me par RUN. Chaaue valeur d'une 
ligne de DATA est lue par l'instruc- 
tion REÂD (prononcez RIDE). Les 
DATA servent souvent à remplir un 
tableau DIM. Exemple simple après 
un DIM J$(6) ; au lieu d'écrire : 
J$(0) = "Dimanche":J$(l} = 
"Lundi":J$(2) = "Mardi", etc. il est 
moins fastidieux de programmer : 

810 DATA Dimanche, Lundi, Mardi, 
Mercredi, Jeudi, Vendredi, Samedi 
820 FOR N = TO 6:READ J$(N) 
:NEXT 

Neuf fois sur dix les DATAS sont lues 
par des boucles FOR NEXT, lesquel- 
les contiennent une instruction BASIC 
(DRAWR, SOUND par exemple) ; 
celle-ci ne sera donc tapée qu'une 
seule fois> au lieu d'une centaine de 
fois... En somme, ces DATAS ne con- 
tiennent que les paramètres succes- 
sifs de cette instruction, N fois répé- 
tée par la boucle FOR NEXT. 
On aboutit alors à un listing plus 
court bien sûr, mais aussi plus clair, 
car chaque ligne de DATA peut 
grouper par exemple les paramètres 
d'un sous-ensemble (graphique, 
musical ou autre). D'où des vérifica- 
tions et modifications plus faciles (lis- 
ting confus = bugs en sus). 



Les lois des datas m^mm 

Elles sont beaucoup plus strictes que 
l'on pourrait le supposer et leur non- 
respect provoque généralement des 
"bizarreries inexplicables" et la 
plupart du temps sans messages 
d'erreurs ! 
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I - Le séparateur de données est la 
VIRGULE ou l'ESPACE. Exemple de 
bourde classique : 

710 DATA POITOU, ILE DE 
FRANCE, BRETAGNE 

On a cru mettre trois valeurs ; erreur, 
il y en a cinq ! Car le BASIC a com- 
pris ILE, DE, FRANCE. Il fallait 
taper cette valeur entre GUILLE- 
METS. 

710 DATA POITOU, "ILE DE 
FRANCE", BRETAGNE 

Les guillemets servent aussi à incor- 
porer des espaces avant et après un 
mot. 

- Hormis avec READ, le BASIC ne 
lit pas les lignes de DATAS. Il les 
passe comme s'il s'agissait de lignes 
de REM. Elles peuvent donc être 
mises n'importe où dans le listing. 
Mais regroupez-les quand même 
quelque part, pour la clarté... 

3- Une ligne de DATAS ne doit 
comporter que des DATAS. En bout 
de ligne ne mettez surtout pas un ":" 
suivi d'un REM I (Et encore moins 
une instruction BASIC...). 

,:;, - Avec l'instruction READ, le 
BASIC considère les valeurs des 
lignes de DATAS comme étant mises 
dans une PILE. C'est-à-dire qu'au 
premier READ, il reprend le listing 
depuis le début, y cherche la pre- 
mière ligne de DATAS et y lit la pre- 
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mière valeur. Lorsque plusieurs 
READ auront "épuisé" cette ligne, 
il cherchera une autre ligne de 
DATAS, dans l'ordre des numéros 
de lignes. Lorsque toutes les valeurs 
de toutes les lignes auront été lues 
(bas de la pile), un nouveau READ 
provoquera un plantage avec mes- 
sage "OUT OF DATA ERROR" |= 
je n'ai plus rien à lire). 
Pour relire ces valeurs, il faut remon- 
ter le "pointeur des DATAS" par la 
commande RESTORE (= recharger) 
suivie d'un numéro de ligne, RES- 
TORE 830 par exemple ; le pointeu r 
est mis sur cette ligne et sur la PRE- 
MIERE valeur de cette ligne de 
DATAS. 

- Un nombre dans une ligne de 
DATAS peut être lu comme un nom- 
bre ou comme une chaîne. Exemple : 

830 DATA PAUL,25,JEAN,31, 

ANDRE,18 
840FORN=1 TO 3 
850 READ P$,AGE 
860 PRINT P$;"a";AGE;"ans 
870 NEXT 

On peut très bien remplacer AGE 
par AGES. Remarquez la syntaxe 
de la ligne 850 : la virgule évite de 
taper READ PS:READ AGE (cela 
rappelle la syntaxe de la ligne 1 00 
des déclarations de DIM). 
Modifions la ligne 840 par FOR 
N = l TO 2 puis ajoutons : 

880 READ ZZ$ : PRINT ZZS 

Réponse "ANDRE", car le pointeur 

était resté sur cette valeur. 

Un exemple de "reprise de DATA" : 

890 RESTORE 830:FOR 

N=l T0 3 
900 READ A$,V:AN=1988-V 
910 PRINT AS;" est né en";AN 
920 NEXT 

• Même si le pointeur était resté au 
milieu d'une ligne, le RESTORE le 
place au DEBUT de la ligne indi- 
quée. 

• Les valeurs en DATA peuvent être 
relues sous un autre nom de varia- 
ble. 

QUELQUES CONSEILS 
PRATIQUES 

- En cas de doute, n'hésitez pas 
à mettre une valeur entre guille- 



mets ; exemple, cette ligne contient 
trois valeurs : 

600 DATA "l'espoir", "boire, 
manger",":' 

(Le seul caractère impossible à met- 
tre en valeur DATA est le ...guille- 
met...). 

- Programmez systématiquement 
un RESTORE numéro de ligne 
AVANT chaque cycle de lecture par 
READ, même s'il ne sert à rien 

(pour l'instant...). Ainsi, quel que 
soit le devenir de votre programme 
(modifications), vous serez définiti- 
vement à l'abri de surprises aussi 
désagréables qu'inattendues. 

c - Ne remplissez pas vos lignes de 
DATAS en tapant les valeurs "au 
kilomètre". Il est super prudent que 
chaque ligne corresponde à quelque 
chose de précis ; un motif graphique, 
une mesure musicale, etc. Ainsi, en 
cas de retouches (et il y en a tou- 
jours), vous saurez tout de suite que 
c'est telle ligne qu'il faut modifier. 

- Usez et abusez de la commande 
RESTORE, lorsque tel "motif" doit 
être répété plus loin ; comme s'il 
s'agissait de GOSUB. Exemple : (le 
pointeur est actuellement en ligne 
1440). 

1420 RESTORE 1230:FOR 

N=l TO 15 
1430 READ A,B:DRAWR A,B: 

NEXT:RESTORE 1440 
1440 DATA... 

Ce "RESTORE aller-retour" nous a 
évité de retaper 30 valeurs en DATA 
! Et sans risque d'erreurs et en éco- 
nomisant de la mémoire. Il faut 
ruser... 

- Autre astuce de fainéant : avant 
de se lancer dans la frappe de nom- 
breuses lignes de DATA, tapez KEY 
134, "DATA#". Ainsi la touche 6 
du pavé numérique écrira DATA 
plus espace ; une touche au lieu de 
cinq... 

Pensez aux def fn 

DEF FN nous permet de compléter 
le vocabulaire BASIC par des fonc- 
tions nouvelles et de notre cru. Dans 
"CPC" n° 24 page 20, je vous avais 
livré de nouvelles fonctions mathé- 
matiques obtenues par DEF FN. 
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Aujourd'hui, je vous en livre d'autres 
mais pour des fonctions chaînes. 

Créons une fonction qui nous mette 
la première lettre d'un mot en majus- 
cule et la suite en minuscules ; par 
exemple pour des prénoms : 
"PAUL", "paul" ou "Paul" donne- 
ront toujours "Paul". Baptisons cette 
nouveauté FN MAJ$. 

40 DEF FN MAJ${A$) = UPPER$ 
(LEFT$(A$,l)) + LOWER$ 
(MID${A$,2)) 

Et plus loin, on l'utilise : 

3420 INPUT "Prénom:",PR$ 
3430 PR$ = FN MAJ$(PR$) 

Un autre DEF FN (signifie définition 
de fontion) supprimera le blanc qui 
se crée à gauche d'une chaîne obte- 
nue par 5TRS. (STR$(4) - " 4"). 
C'est une place réservée au signe 
moins, alors autant récupérer cet 
octet lorsque l'on n'a affaire qu'à 
des nombres positifs. Baptisons - le 
FN SB$ (SB étant le signe de "sans 
blanc"). 

DEF FN SB$(N) = MID$(STR$(N),2) 

En voici un troisième "volé" aux lan- 
gages dBASE III et REXX, c'est 
STRIP qui élimine le ou les blancs qui 
peuvent être à droite d'une chaîne. 
Son nom sera bien sûr FN STRIP$. 

DEF FN STRIP$(A$) = LEFT$(A$ + 
SPACES (2),INSTR(A$ + SPACE$ 
(2),SPACE$(2))-1) 

Technique : dès qu'on repère deux 
blancs consécutifs, on dit que la chaî- 
ne s'arrête sur le caractère situé 
avant ces deux blancs. 
Avec le temps, on finit par se consti- 
tuer une sorte de "complément 
BASIC", une bibliothèque person- 
nelle de fonctions nouvelles. Il suffira 
de mémoriser ces DEF FN en début 
de programme pour utiliser ensuite 
fréquemment ces "FN quelque 
chose". 

Pour ne pas avoir à les retaper cha- 
que fois, le fainéant que je suis les 
a regroupés en un seul sous- 
programme, sauvegardé à part {et 
en ASCII pour les CPC 464) sous le 
nom de FNBIB. Des lignes 38000 à 
38490, ce sont les FN numériques / 
de 38500 à 38980 les FN chaînes, 
avec le RETURN final en 38990. 




Pour un programme nouveau, 
MERGE "FNBIB" ; ligne 50 GO- 
SUB 38000 ; et en final on efface du 
programme les DEF FN dont on n'a 
pas eu besoin. Vue la manoeuvre ? 

L'UTILISATION DES FLAGS ■ 

Un "flag" (drapeau en anglais) est 
en fait un témoin, un mouchard, d'un 
passage du programrrfe à tel 
endroit, de la réponse que vous 
aviez donnée à une certaine ques- 
tion, etc. 

C'est une valeur numérique valant 
généralement zéro (faux) ou 1 
(vrai). Un conseil, faites en sorte que 
les noms de tous vos flags (et seule- 
ment eux) commencent par la lettre 
F. Le listing n'en sera que plus clair. 
Trois exemples simples : 

1 - Au début du programme, on 
demande "avez-vous un écran cou- 
leur ? (O/N)", réponse R$. 

FCOL = 0:IF R$ = "0" 
THEN FCOL=l 

Et dans le programme, on trouvera 
des IF FCOL=l THEN PEN 3... 

2 - Telle réponse par un IN PUT doit 
être soigneusement vérifiée, d'où un 
passage en douane très serré dans 
un GOSUB. Ce sous-programme 
renverra un code d'erreur si la ré- 
ponse est incorrecte. 

490LOCATE 10,10:LINE INPUT 

"Date:",DAT$ 
500 GOSUB 54000:1F FER= 1 

THEN 490 

54000 'DATE 

54010 FER = 0:'flag erreur initialisé 

à zéro 
.... Traitement de DAT$. Si erreur 
FER=1 

54180 IF FER = THEN 54200 
54190 PRINTCHR$(7);:'Bip sonore 
54200 RETURN 

3 - Soit un gestionnaire de fichiers 
que vous avez lancé et vous avez 
chargé un fichier. Le flag FMOD est 
mis à zéro. Si vous vous contentez 
de consulter le fichier, FMOD reste 
à zéro, maïs si jamais vous appor- 
tez la moindre modification à son 
contenu, le flag FMOD passe à 1 . Si 
vous sauvegardez le fichier, il 
repasse à zéro. 

Au moment où vous désirez quitter 
le programme, celui-ci examine 



d'abord le flag : si FMOD = 0, c'est 
OK si FMOD= 1, il y a le message 

ftour les étourdis : "Vous avez modi- 
ié le fichier. Voulez-vous sauvegar- 
der ? (O/N)". C'est le genre defTags 
{peu gourmands en mémoire) qui 
donnent un cachet "PRO" à un pro- 
gramme. C'est malheureux à dire, 
mais il existe des mouchards bien 
sympathiques... 

Attention I L'usage des mouchards 
comporte un risque de bug super 
exaspérant, c'est l'oubli de remettre 
le flag à zéro. Ainsi, dans l'exem- 
ple du paragraphe précédent, que 
se passerait-il si nous avions oublié 
la ligne 54010 ? En cas d'une seule 
erreur de date, FER resterait à 1 et 
il serait impossible d'aller plus loin. 
Le bug surprise bête et méchantA 
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Micronaute 

LE SPECIALISTE 
NANTAIS DU PC 

Revendeur qualifié conseil 



M • S.A.V. personnalisé 

• Contrat de maintenance 

• Logiciels - Livres 

• Location 

H) Adresse : 

9, rue Urvoy de Saint Bedan 

44000 NANTES 

Tél. 40.69.03.58 
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La boîte de construc- 
tion Computing Expé- 
rimental contient vrai- 
semblablement ce dont vous 
avez toujours rêvé si vous êtes 
un passionné d'informatique et 
de robotique. En effet, la lon- 
gue boîte portant l'estampille 
Fischertechnik nous ouvre des 
horizons nouveaux qui étaient 
jusqu'à présent inaccessibles 
au commun des CPC. 

Le matériel nécessaire est 
minime : un CPC, la boîte 
Computing Expérimental, plus 
le logiciel et la prise adéquate. 
Pour être tout à fait honnête, 
le banc d'essai a été effectué 
sur un compatible PC. Je pos- 
sédais donc en plus de la prise 
de raccordement (qui se con- 
necte sur la sortie parallèle) un 
ensemble de logiciels sur une 
disquette 5" 1/4. Cet adapta- 
teur, fixé à l'arrière de l'unité 



centrale, permet de connecter 
l'interface Fischertechnik. L'in- 
terface est une boîte transpa- 
rente qui comprend 4 sorties, 
.8 entrées et 2 entrées analo- 
giques. 

La partie mécanique est cons- 
tituée par les éléments habi- 
tuels chez Fischertechnik : 
axes, roues dentées, vis sans 
fin. Les habitués sont en terri- 
toire connu. Mais on trouve 
également 2 moteurs, 3 pal- 
peurs à bouton poussoir, 1 cel- 
lule photo-électrique, 1 ther- 
mistance, plus tous les fils et 
plots nécessaires. Le livret de 
construction vous donne plu- 
sieurs exemples de ce qu'il est 
possible de réaliser. Voici 
quelques modèles : une photo- 
mètre, un "radar", un thermo- 
mètre, un ventilateur, un robot 
de soudage et surtout une tor- 
tue. J'insiste bien sur la tortue 
parce que cela me semble une 
des réalisations les plus inté- 
ressantes. Ce livret vous donne 
toutes les étapes de la cons- 
truction. Vous devez donc 
assez rapidement obtenir le 
modèle oui figure sur la cou- 
verture de CPC. Ensuite, une 
fois le câblage effectué, il ne 
reste plus qu à tester le mon- 
tage grâce au logiciel. 
Je récapitule : vous avez donc 
d'une part la tortue reliée à 
l'interface et d'autre part l'in- 
terface connectée au clavier 
de l'Amstrad (ou du PC). Le 
logiciel, lui, contient une notice 
explicative et descriptive et un 
logiciel d'installation. Ce logi- 
ciel modifie les paramètres 
d'entrées/sorties sur le port 
Centronics en fonction de la 
vitesse du microprocesseur 
(ceci est valable pour les com- 
patibles bien sûr). Le logiciel 



ERIMENTAL 



implante environ 52 nouvelles 
commandes, ceci afin d'ex- 
ploiter en totalité les possibili- 
tés de Computing Expérimen- 
tal. Vous avez donc la liberté 
totale de construire vos pro- 
grammes à l'aide des RSX et 
de manipuler les maquettes. 
La présence d'un fichier intitulé 
diagnostic est heureuse. Ce 
programme vérifie la validité 
des connexions de tous les ins- 
truments. On agît alors en 
direct sur les moteurs et on 
observe les variations des 
valeurs perçues par la photo- 
résistance et la thermistance 
qui apparaissent à l'écran. Les 
autres programmes compren- 
nent des utilitaires permettant 
le déplacement manuel ou 
programmé de la tortue. L'ani- 
mal peut également, grâce à 
sa cellule photo électrique, 
être guidé par une ligne som- 
bre sur le sol ou bien chercher 
le point le plus lumineux de la. 
pièce et s'y diriger. Ce ne sont , 
que quelques exemples de ce 
qu'il est possible de réaliser 
avec un seul des modèles pro- 
posés ! 

Cet ensemble permet donc une 
grande variété d'applications 
toutes à but éducatif : appren- 
tissage de l'orientation (sur un 
plan et dans l'espace) de la 
programmation, de la roboti- 
que des mécanismes de com- 
mande des machines outils. De 
plus, vous n'êtes pas limité à 
la boîte de base puisque tous 
les composants Fischertechnîk 
peuvent être assemblés avec 
Computing Expérimental. 

Pour tout renseignement, con- 
tactez SPI-KAGER (voir le 
carnet d'adresses dans l'ac- 
tualité)» 
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1 La tortue et l'interface réunies 
| pour une photo de famille. 

A gauche de l'interface, vous 
i voyez la prise Centronics pour 
I le PC. 



@ C T 

LE PC 
FORUM 

Christophe MESUN 

'est du 16 au 19 février derniers 
que s'est tenu le cinquième PC 
^kw'' FORUM au Parc des Expositions 
de la Porte de Versailles. Plus de 51 200 
visiteurs de tous horizons sont venus fou- 
ler les 25 000 m 2 de surface d'exposi- 
tion pour y découvrir les nouvelles ten- 
dances pour 1988. 

Et tout d'abord, l'arrivée en force des 
micro-ordinateurs de la troisième géné- 
ration : les PS/2 d'IBM, les micros à base 
de 286 et 386, et le MAC II d'APPLE. 
AMSTRAD était fier de présenter toute 
sa gamme de compatibles portables 
PPC. Quatre modèles seront disponibles 
dès le mois d'avril dans une fourchette 
de prix allant de 4 490 F à 6 490 F H.T. 
Ils seront tous équipés d'un clavier 102 
touches de type AT, d'un lecteur de dis- 
quettes 3 pouces et demi et d'écran LCD 
SUPERTWIST vert. Les PPC 512 et 640 
se différencient par leur taille mémoire 
respective : 512 et 640 Ko, de plus les 
640 ont un modem intégré multi-vitesses 



AVEC TURBO PASCAL 4 B, 
PARADOX ET QUATTRO, 
BORLAND ATTAQUE FORT CE 
DEBUT D'ANNEE 1988 
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AVEC SA 
SES ORDINATEURS DE BUREAU, 
COMPAQ DECROCHE DEUX 
MICROS D'OR I 
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compatible vidéotex. Ils peuvent tous se 
connecter sur un écran couleur ou 
monochrome et être alimentés de 4 
façons différentes. 

IBM proposait quatre configurations 
possibles de ses PS/2 : du modèle 30 
possédant un microprocesseur 8086 au 
modèle 80 équipé d'un 80386, ils 
étaient tous alignés faisant tourner la 
même application. Chacun eut le loisir de 
mieux se rendre compte de la rapidité 
des différents modèles. C'est avec plus 
de 1,8 milliard d'octets en ligne gu'lBM 
présentait ses nouvelles unités à disques 
durs : une façon comme une autre d'im- 
poser sa puissance. 
Le PC FORUM 88, c'était aussi l'occa- 
sion de récompenser les meilleurs pro- 
duits de l'année 1 987. Parrainée par les 
organisateurs du salon, la soirée de 
remise des Micros d'Or se tenait à la 
Grande Halle de la Villette le jeudi soir 
après une courte visite de CITE-CINE. 



Bref, l'ambiance de ce cinquième salon 
fut très positive avec l'explosion tous azi- 
muts des compatibles AT et la banalisa- 
tion des micro-ordinateurs à base de 
micro-processeurs 80286. Alors que les 
premiers 386 montrent le bout de leur 
nez, IBM tente d'imposer son nouveau 
standard. Les logiciels sont de plus en 
plus performants et les prix plus compé- 
titifs à la grande joie ae tous. Les chif- 
fres encourageants de 1987 démontrent 
que le marché est loin d'être en crise et 
que 1988 s'annonce très bien pour tout 
le monde. 

A retenir : les dates du prochain PC 
FORUM, sixième du nom, qui aura lieu 
au même endroit du 14 au 17 février 
1989. Le rendez-vous est pris ! 



• Catégorie matériel : 

Micro-ordinateur professionnel stan- 
dard : 

MAC SE d'APPLE 
Micro-ordinateur pro et haut de 
qamme : 

DESKPRO 386120 MH2 de 
COMPAQ 

Micro-ordinateur jjortable : 
PORTABLE 386 3 de COMPAQ 

• Catégorie logiciel : 

Tabfeur ou intégré : 

EXCEL PC de MICROSOFT 

Traitement de texte : 

WORD 3 de MICROSOFT 

Outil de PAO : 

VENTURA 1.1 de RANK XEROX 

Loqiciel graphique : 

ILÛISTRATOR d'ADOBE 

Base de données : 

PARADOX 2.0 de BORLAND 

Système et langage : 

HYPERCARD d f APPLE 
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• YE5 YOU CAN : le générateur 
d'application en est à sa version 3.50. 
Cette nouvelle mouture apporte un com- 
pilateur intégré, une gestion des ports de 
communication, 80 macro-instructions. 
Tout cela compatible avec la version pré- 
cédente (3.10) en étant plus convivial, 
plus rapide et plus performant. Le prix 
H T est de 8 900 F. Renseignements : 
YCSA 

33 rue Galilée 
75116 PARIS 
Tél. (1J.47.23.72.24. 



• COBRA SOFT : la coopération entre 
l'URSS et la France au niveau informa- 
tique ludique doit aboutir prochainement 
à la création d'un jeu de dames. Le "pro- 
chainement" correspond à la date cf'ou- 
verture des jeux de Séoul. Seulement, ce 
jeu est annoncé comme le "most balèze" 
en ce domaine, puisqu'il utilise les tech- 
niques de l'intelligence artificielle. Cette 
coopération s'effectuera entre Vladimir 
AGAFONOV (GMI) et Roland MORLA, 
programmeur de son état et à 
qui nous devons 
"Dames 3D". 




• SYBEX : les compatibles vont encore 
avoir de quoi se nourrir puisque 3 livres 
imposants sont sortis tout récemment des 
presses : la Nouvelle encyclopédie 
Wordperfect. Il s'agit d'un guide conte- 
nant tout sur le célèbre traitement de tex- 
tes (790 pages : 348 F). 
"dBase Ml/dBase III plus", programmer 
votre gestion commerciale vous propose 
à partir de FASTEX des applications de 
gestion dans une société fictive. FASTEX 
est un logiciel entièrement écrit sous 
dBase III et totalement modifiable (694 
pages : 328 F). 

Enfin, les Bibliothèques de programmes 
en Turbo-Pascal regroupent des procé- 
dures utiles telles que la gestion des 
menus déroulants en mode texte et un 
mode graphique ou la création de fon- 
tes (424 pages : 260 F}. 




• UTIL SOFT : un de nos auteurs, 

Michel MAIGROT, se lance dans l'aven- 
ture de l'édition de logciels. Son premier 
produit est un programme d'autoforma- 
tion à l'assembleur comprenant plusieurs 
modules d'initiation. Le tout est disponi- 
ble au prix de 165 F TTC et comprend 
une disquette + le cours (volume 1). Le 
volume 2 sortira en juin 1988. 
Pour plus de renseignements, contactez : 
UTIL SOFT 
M. MAIGROT 
La Grande Verrière 
71990 St Léger sous Beuvray. 
Tél. 85.82.51.01. 



• F.A.V.E. : connaissez-vous le 
Logo ? Mais oui, ce langage livré avec 
la disquette système. Comment vous ne 
vous en êtes jamais servi ? Evidemment 
l'anglais dont sont truffées les instructions 
■calme vos ardeurs informatiques. D'au- 
tant que ce langage a un but pédagogi- 
que (ce qui ne veut pas dire qu'il ne soit 
réservé qu'aux enfants). Alors on laisse 
tomber et on se lance dans les "plats de 
spaghettis" du BASIC qui, bien que lui 
aussi en anglais, bénéficie d'une diffu- 
sion plus large. 

Heureusement la société F.A.V.E. (Cail- 
lava 32700 Lectoure) vous propose de 
franciser le Logo et d'avoir la joie infi- 
nie de taper "Hasard" au lieu de "Ran- 
dom". 

Comment procéder ? Il suffit d'envoyer 
une copie de Logo et de joindre 60 F 
pour la version 464 ou 664 ou Logo 2 
sur 6128 (+ 15 F de frais de réexpédi- 
tion). 
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consiruction se 

conjugue. désormais avec Informatique, puisqu'un des modules proposés con- 
tient outre les moteurs, les capteurs de lumière et de température, une 
interface permettant le raccord avec votre ordinateur. Ce kit vous 
ouvre alors les portes d'un autre aspect de l'informatique : 
la robotique. De plus vous trouverez le logiciel cor- 
respondant à vôtre ordinateur qui vous per- 
. mettra entre autres d'exploiter la tortue 

^È\ ce petit animal capable d'obéir à 

tous vos- ordres et surtout capable: 
d'explorer l'univers qui l'entoure/ 




URGENT !!! 

Région Bordelaise, gérance 
à céder. Conviendrait à per- 
sonne jeune, dynamique, 
intéressée par la vente de 
matériel micro-informati- 
que. 

C.A. actuel : 200 000 F/ 
mois. 

Point de vente agréé AMS- 
TRAD, ATARI, COMMO- 
DORE. 

Pour tous renseignements : 
Tél. 56.91.15.81 



*i^ ? 



• CEDIC-NATHAN : English for 
business est un logiciel d'apprentissage 
de l'anglais commercial. Le progamme 
possède un dictionnaire de 3000 mots et 
permet d'établir des bilans personnali- 
sés. Une cassette audïo est fournie afin 
de compléter le cours. Pour enfin pouvoir 
vous lancer sans complexe sur les mar- 
chés internationaux il vous en coûtera 
590 F plus le prix d'un compatible si 
vous n'en possédez pas un. 



• CHANGEMENT D'ADRESSE : 

Titus déménage. Tout le monde le savait 
déjà, mais à titre de rappel voici leur 
nouvelle adresse : 28 ter, avenue de 
Versailles, 93220 GAGNY. En revanche 
le numéro de téléphone reste le même 
(43.32.10.92). 



1 







est, comme vous l'avez deviné, un buf- 
fer imprimante d'une capacité de 64 Ko 
Ce buffer simple d'emploi peut se con 



BUPPER BON 



le Pipo 64 Ce buffer contient un programme interne 



ide test permettant la vérification de I 

liaison entre l'ordinateur et l'imprimante. 

! Pour tous renseignements adressez -vous 



necter à n'importe quel" ordinateur à GRADCO FRANCE S.A., 48, rue de 
pourvu d'une sortie parallèle Centronics. Londres, 75008 PARIS. 
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MISSIVE 



(SUITE) \( 





es programmes qui suivent 

vous permettront de saisir vos 

premiers textes. Les fichiers 

PRESENTA.BIN et CHARGEUR. 

BAS seront présents uniquement sur 

la disquette 17 de CPC. Mais ceux- 






Georges 
HECKER 



ci ne sont pas indispensables au bon 
fonctionnement du programme. 
Puisque Missive Fonctionne sur dis- 
quette ou sur cassette, voici la liste 
des programmes à entrer selon le 
support. 



Avec un lecteur de disque vous 
devez avoir : 

- le programme MISSIVE du numéro 
précédent, 

- le programme REDEFCAR.ASC 
ainsi que les 2 lignes de DELE- 
TE.ASC. 

Il ne vous reste qu'à taper RUN 
"MISSIVE" pour lancer le program- 
me. 

Avec un lecteur de cassette les 

programmes doivent se trouver 
dans l'ordre suivant : 

- MISSIVE (n° 32) avec une ligne 18 
différente : 18 CHAIN MERGE 
"I" + "DEBUT. ASC", 20 

- DEBUT. ASC (n°33j 

- REDEFCAR. ASC (le programme 
est commun aux deux versions) 

- DELETE.ASC (n° 33). 



ELETE.ASC (version disquette) 

10 'COPYRIGHTS GEORBES HECKER *** BESLE SUR VILAINE 

»** 16 JANVIER 88 

18 «H VERSION DISQUETTE 



P 



EDEFCAR.ASC 

1 0000 SYMBOL 1 29 , 460 , 430 , 43C, 466, K7E , 460 , 43C 

10005 KEY 129,CHR*<129) 

10610 SYMBOL 132.46,4C,43C,466.47E,460,43C 

10015 KEY 132,CHR*(132i 

10020 BYMBOL 139, Si6û , Si3û . Sc78, K , Si7C , &CC , 8i76 

10025 KEY 139,CHR*(139i 

10030 SYMBOL 130,40,40, 43C, 466,460, 43E, 48, 418 

10035 KEY 130,CHR$(130) 

10040 SYMBOL 137 , 460, 430, 466, 466, 466, 466. 43E 

10045 KEY 137,CHR*(137! 

10050 SYMBOL 135, 418,466, 43C,466,47E,460,43C 

10055 KEY 135,CHR*(135) 

10060 SYMBOL 131, 418,466,43C, 466.466,466,430 

10065 KEY 131,CHR$U31S 

10070 SYMBOL 138,418,466, 478,4C,47C.4CC,476 

10075 KEY 13S,CHR*(138) 

10080 SYMBOL 136, 418, 4.66, 466, 466, 466, 466, 43E 

10085 KEY 136,CHR*U36) 

10090 SYMBOL 128, 4.66, 40.43C, 466, 47E,460,43C 

10095 KEY 128,CHR*(128) 

10108 SYMBOL 133, 466,40, 438.418, 418, 418.43C 

10105 KEY 133.CHRSS133Ï 



■LA 



>JQ 
>0L 
>HH 

m 

>JR 
>0Q 
>KT 

m 

>JZ 

m 

)JF 
M 
>JR 
>DC 
>JJ 

>gu 

>JB 
>0Q 
>X 
>0U 
>HQ 
Kffl 



10110 SYMBOL 134,418, 466,438, 418,418, 418, 43C 
10115 KEY 134,CHR$!134i 
10120 SYMBOL 141,0,24,240,255,255,240,240,0 
10125 SYMBOL 142,0,242,242,255,255,242,242,0 
10130 SYMBOL 143,0,15,15,255,255,15,15,0 
10135 SYMBOL 144,0,79,79,255,255,79,79,0 
10140 SYMBOL 145,1,3,7,15,31,63,127,255 
10145 SYMBOL 146,128,192,224,240,248,252,254,255 
10150 SYMBOL 147,0,0,0,0,0,255,255,0 
10155 SYMBOL 148,0,24,24,24,24,255,255,24 
10160 SYMBOL 149.24,24,0,126,0,24,24,0 
10165 SYMBOL 150,24,24,66,126,66,24,24,0 
10170 SYMBOL 151,0,102,102,102,102,255,255,0 
10175 SYMBOL 152,0,24,24,24,24,60,60,0 
10180 SYMBOL 153,129,66,36,24,24,36,66,129 
10185 SYMBOL 155,108,108,108,0,0,0,0,0 
10190 SYMBOL 154,0,0,24,24,0,24,24,48 
10195 SYMBOL 156,0,0,0,0,0,24,24,18 
10200 SYMBOL 157,0,0,0,24,24,0,0,0 
10202 SYMBOL 158,0,0,0,24,24,0,0,0 
10205 FGK Dk=1 T0 iOOifitxT 
10210 tr*=CHR$(8)+CHR*(34) : agt=CHR$ ( S ) +CHR$ ( 9fc ) 
10215 qrt=CHR*(8)+CHR$<39) :cr*=CHRS(8)+CHRt(94) 
10220 imb$=CHRt (27 ) + M K"+CHF:t (8 i +CHR* ( 0) 
10225 cedJ=CHR* (OS +CHR* l28) +CHR* (34) +CHR$ (35) +CHR* 134) 
+CHR$(Oi+CHR$(0)+CHR$(0) 
10230 cedî=imb$+ced$ 

10235 itr$=CHR$(0)+CHR*(0i+CHRt!82!+CHRS(30)+CHR$(66i+ 
CHR*(0i+CHRï(0î+CHR$i0) 
10240 itr*=imbt+itr$ 

10245 icrt=CHR$(0)tCHR$(0)tCHR»i34)+CHR*(94i+CHRti34it 
CHRt!0i+CHR*(0)+CHR$(01 
A 10250 icr*=imM+icrt 



>JU 

m 

>JD 
>KK 
>FP 
>FP 
>EK 
>PX 
>B0 
>GÏ 
>BK 
>FF 
>JX 

m 

>HF 
>DH 
>CC 
>AC 
>7Y 
>ZB 
Jiin 
>QC 
>QL 
>FQ 
>EM 

;>PA 

m 

>PC 
>CH 

>PR> 
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10255 f*( l)="e"+tr$:f$( 2) ="e"+qrt: -f*! 3ï=ced* 

10260 Mi 4>="o"+cr*:f*< 5!="e"+ag*: f*( 6i=itrt 

[OZ45 «■( 7)=icri iftt 8j="e n +ci-$:t$( 9i="u"+cr$ 

10270 t*il0i="u"+9r*:f$iil)="a"+cr$:M(12!=V'+qr* 

10275 «(14)=CHR$(15):«(15)=CHR*(1B) 

10280 t$(16)=CHR*(27i*"W"+CHR$!l) 

10285 M (17! =CHRï(27)+"W"+CHft* (0! 

10290 f$(18)=CHR$(27)+"E" 

10295 f$(19i=CHR*(27)+"F" 

1 0300 i $ ( 20) =CHR* i 27 ) + " - " +CHR* i 1 ! 

10305 « (21) =CHR$ (27) +"-"+CHRt (0) 

10310 «(22)=CHR*(27>+"0" 

10315 ft(23)=CHR*(27i+"2" 

10320 f*(24i=CHR*(27)+"B ,! 

10325 «(25)=CHR$!27)+"H" 

10330 «Î26)=CHR*(2?)+CHR*(64) 

10335 f»(27j=CHR*<59) 

10340 rt(28i=CHR$(34! 

10345 «(29)=CHR*(44) 

10350 M(30)=CHR$(32! 



10355 SYMBOL 161, 



255,255,255,25! 



m 
>m 
>m 

>TB 

m 
m 
>i$ 

>RX 
;RE 
>ZB 
>ZE 
>RL 
>RV 
>RP 
>RX 
>XN 
>NB 
,MD 
>NY 
>NS 
>PL 



10.360 f $(34) =imb$+CHR* (255) +CHRI (255) +CHR$ (255) +CHR$ (25 

5 ) +CHR* (255 ) +CHR* (255 i +CHR$ ( 255 ! +CHR$ (255 ! 

10365 SYMBOL 162,1,0,0,0,0,0,0,0 

10370 rt(35)=iinb*+CHR*(0)+CHR*!0!tCHR*(0i+CHR*(0)tCHR*( 

0)+CHR$(0)+CHR*(0)+CHR*U2B) 

10375 SYMBOL 163,15,15,15,15,255,255,255,255 

10380 «(36)=imb»+CHR*(15i+CHR$il5)+CHR*(15)tCHR«(15)+C 

HR* ( 255) +CHR$ ( 255 i +CHRI ! 255 ) +CHR$ ! 255 ) 

10385 SYMBOL 164; 24, 24, 60, 60, 126, 126, 255 , 255 

10390 »!37>=imb*+CHR$(3)+CHR*(15)+CHR*(63i+CHR*(255)+C 

HR$(255)+CHR*(63!+CHR$(15)+CHR*(3) 

10395 SYMBOL 165,255,255,255,255,240,240,240,240 

10400 #t(38i=i»bt++CHR»(255)+CHR$(255i+CHR*(255)+CHR$(2 

55i +CHR* (240! +CHR* (240) +CHR* (240) +CHR$ (240) 

10405 SYMBOL 166,255,255,255,255,15,15,15,15 

10410 M(39)=imb*+CHR*(240)+CHR*(240)+CHR$(240)+CHR*(24 

« +CHR» (255) +CHR*(255)+CHR* (255) +CHRK255) 

10415 SYMBOL 167, 126,255, 153.255, 189, 195,255, 126 

10420 f*(40)=i«b*+CHR»(126)+CHR$(215i+CHRt(219i+CHRt(25 

li+CHR$(251i+CHR*i219)+CHR*!215)+CHR*(126) 

10425 SYMBOL 168,255,254.252,248,240,224,192,128 

10430 f*<41!=imb*+CHR*(255)+CHR*i254)+CHR$(252)+CHR$(24 

3 ! +CHRt (240) +CKR* (224 ) +CHR* (192) +CHR$ ( 12B) 

10435 SYMBOL 169,255,127,63,31,15,7,3,1 

10440 f*(42)=inb*+CHR*(128)+CHR*(192)+CHR*(224ï+CHfi*(24 

) +CHR$ (248) +CHR* (252) +CHRI (254) +CHR$ (255) 

10445 SYMBOL 170,56,56,146,124,16,40,40,40 

10450 «(43)=i«b*CHR*(32)+CHR*(16J+CHR$(215i+CHR*i248i 

tCHR» ( 2 1 5 ) +CHR$ ( 1 6 ! +CHR* (32 ) +CHR* ( 1 

10455 SYMBOL 171,1,3,7,15,31,63,127,255 

1O460 f$(44!=imb*+CHR$(l)+CHRt(3i+CHR$(7)+CHR$(15)+CHR$ 

(31)+CHRt(63)+CHR$(127)+CHR*C255i 

;04o5 SYMBOL 172, 128,192,224,240,248,252,254,255 

10470 (*(45)=imb*+CHR$(255)+CHR*(127)+CHR$(63)+CHR$(31) ; 

*CHR* ( 1 5 ) +CHR* ( 7 ) +CHR $ ( 3 ) +CHR* ( 1 i 

10475 FOR bk=l TG 200:NEÏT ; 

10480 RETURN 
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EBUT.ASC 



10 'COPYRIGHTS BhORBES HECKER •« BESLE SUR VILAINE >LA 

H* 12 DECEMBRE B7 

» ' VERSION CASSETTE 

35 CHAIN MERBE " ! "+"REDEFCSfi.ASC",40 

45 CHAIN HERBE "'"fDELETE. ASC", 50.DELETE 10000- 

60 CALL MB48: RESTORE: SOTO 210 

65 OPENÛUT "!"+"BUFFER" 

220 PRINT'TNTRODUIRE LE TESTE " : CHRt ( 24 i : " -T- " : CHRt ( 24 

):" REDIBER LE TESTE ":CHRt (24) : "-R-": CHR* (24) : " 

FIN DU PROGRAMME ":CHR$!24! :"-A- t ':CHRï(24i : 

255 ON h GOSUB 295.565.555,495.1945.2260.3000,4000.555 

330 OPENIN ' ! "+»$ 

360 RETURN.'FOR bk=l TO 1000:NEÏT:BOSUB 150 

525 OPENOUT " ! "+»$ 

555 i=10O00:CLS*l:!MODE12;L0CATE*1.16.5:PRINT#l."TERHIN 

E"i:M0DE22:LBCATE 1.2:PRIN7 STRINB*(77,CHR$(157!i:;L0CA 

TE 1.3:PRWT STRIN6$!77.CHR$(157î! ;:LBCATE 35.1:PRINT C 

HR$i24i:bTRIN6$(12.CHR*(233i):LHR*(24i« 



)DK 

,>0H 
>ZR 
>RJ 
>BD 



m 

>LN 
>LA 
M 
>AH 



'ELETE.ASC (version cassette) 



10 'COPYRIbHTK GEuRBEb 
^** 12 DECEMBRE 87 



HECKER *** BESlE SUR VILAINE 



,'Efs;o!-( caece^e 



>LA 
HJ» 



POUR TOUT 
CPC 

+ de 20 RSX pour gestion de 

l'accès direct au disque et 

des fichiers indexés. 



PRINCIPALES CARACTERISTIQUES : 

- Nombreux enregistrements (32000) 

- Longueur d'enregistrement : 1 Ko 

- Longueur fichier : 220 Ko 

- Nombre de fichiers ouverts simultanément : 

- Avec sur la même disquette : 

1 gestion de fichiers paramétrables 
1 gestion de bibliothèque 
1 gestion documentaire 
1 gestion de discothèque 



PRIX : 



250 F TTC 



Envoyer commande et règlement à : 

M. LENEUVEU 

St-Christophe-en-Bresse 

71370 SAINT-GERMAIN-DU-PLAIN 

TELEPHONE : 85.96.02.41 
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BANC P'ZSSA/ 



wq/cmis 



NORTHSTAR 

Gremlin Graphics 
Arcade 

ans les années 2500, il 

s'est avéré nécessaire 

de construire pour 

tous les terriens une station dite 

de survie qui aurait une grande 

capacité d'accueil et qui produi- 






rait des aliments très riches en 
qualités nutritives et cela en 
grande quantité. C'est pour 
cette raison que Northstar na- 
quit. A partir du moment où la 
station fut habitable, des vols 
réguliers furent mis en place 
entre la Terre et Northstar. 
Puis, un jour, un fait très in- 
quiétant se produit : la dernière 
navette ne revient pas de North- 
star. 

Aussitôt, un spécialiste (vous en 
l'occurrence) est envoyé sur la 
station pour voir ce qui s'y 
passe ; et c'est l'horreur ! Plus 
un seul terrien à l'horizon et, 
par contre, tout un fourmille- 
meni d'aliens. D'autre part, 
heureusement que vous avez 
pris la précaution de revêtir 
votre équipement individuel de 



US GoW 
Arcade 

(I 

i le nom d'Elvin 
Atombender ne vous 
_. est pas inconnu, c'est 
que vous avez déjà vécu la pre- 
mière mission impossible et, le 
plus important, que vous avez 
réussi à vous en sortir. Quant 
aux autres, sachez que là où se 
trouve Elvin se trouvent égale- 
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survie car tout le système créant 
une atmosphère artificielle est 
inopérant. Vous êtes donc con- 
fronté au problème suivant : 
joindre le centre de Northstar 
afin de réactiver le système et, 
par conséquent, détruire tous 
les aliens se trouvant sur votre 
chemin (et, croyez-moi, ils sont 
nombreux, très différents et 
redoutables). 



Avec Northstar, vous allez trou- 
ver tous les avantages suivants : 
des sprites de taille appréciable, 
un graphisme fourni et très 
coloré et une grande rapidité 
d'action que les non-initiés au 
maniement du joystick pour- 
ront trouver à la limite du 
jouable. 



ment fort peu de chances de 
vous échapper sain de corps et 
d'esprit d'une aventure infer- 
nale. 

Cette fois, vous vous trouvez 
dans un complexe de huits tours 
qui ont la particularité d'être 
disposées de façon à former un 
cercle ; dans chacune des tours 
vous pouvez passer d'un étage 
à l'autre par un ascenseur et 
vous accédez ainsi à plusieurs 
pièces qui, malheureusement 
pour vous, sont infestées de 
robots de toutes sortes qui ne 
sont pas gentils du tout avec 
vous. Et pourtant, il vous faut 





absolument explorer tous les 
objets de chaque pièce car en 
contrepartie vous pourrez obte- 
nir soit des armes pour annihi- 
ler les robots, soit des chiffres 
(bleu, rose ou vert). Et ces chif- 
fres sont primordiaux car ils 
vont vous permettre d'obtenir 



un code de 3 chiffres (à condi- 
tion de faire le bon arrange- 
ment) qui libère l'accès à une 
tour mitoyenne. Et lorsque vous 
aurez exploré toutes les tours, la 
victoire sera enfin là I 
Impossible Mission 2 vaut le 
déplacement car à un graphisme 
soigné et coloré, s'ajoute une 
animation qui vous autorise des 
sauts périlleux à vous couper le 
souffle ! Pour terminer, je tiens 
à vous signaler que votre mis- 
sion est liée à un compte à 
rebours donc pas de temps à 
perdre... 
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3A/VC PASSAS 



Jet bike 
simulator 

Code Masters 
Simulation 



■ ; ien que la température 
[^extérieure n'atteigne 
pas des valeurs phéno- 
ménales (loin de là !), il est pos- 
sible que vous ayez soudaine- 
ment une envie d'eau, de vitesse 
et de compétition. Dans ce cas, 
n'hésitez pas à enfiler votre 
équipement complet et alignez- 
vous sur la ligne de départ en 
compagnie d'une moto d'eau. 





Sachant que vous êtes 4 concur- 
rents au départ, vous devez 
effectuer, selon le circuit, un, 
deux (ou plus...) tours dans un 
temps qui vous est imparti et je 
peux vous assurer que vous 
n'avez pas le temps de faire des 
pirouettes ou des tête-à-queue ! 
Vous avez donc intérêt à suivre 
un sérieux entraînement pour 
contrôler parfaitement le 
maniement de votre engin. Ceci 
étant fait, ne pensez surtout pas 
que vous vous désintéresserez de 
ce logiciel car vous serez alors 
apte à charger une seconde série 
de circuits qui s'adresse exclu- 
sivement aux experts. Et si vous 
parvenez malgré tout à devenir 
un super champion dans cette 
série, vous en avez encore deux 
spécialisées qui se passent au 
bord des côtes ou dans les ports 
(loin d'être évident !). 
Jet Bike Simulator a le désavan- 
tage d'avoir de petits sprites ; 
par contre, vous faites la course 
en vue de dessus, avec une 
bonne vitesse d'animation, une 
véritable maniabilité de l'engin 
et une vitesse appréciable. A 
voir. 





L'AFFAIRE 
SANTA FE 

Infog rames 
Aventure 



n cette fin de journée 
B du 13 janvier 1848, 
--l'injustice frappe une 
nouvelle fois : en effet, j'étais 
bien calé dans un fauteuil du 
saloon en train de faire une par- 
tie de poker lorsque, soudain, 
mon adversaire me menace avec 
son revolver en me traitant de 
tricheur ! Cette accusation est 
parfaitement fausse et, malheu- 
reusement, c'est en état de par- 
faite légitime défense que je me 
trouve dans l'obligation d'abat- 
tre Walter Mac Douglas. Que 
n'ai-jepas faitià ? C'est comme 
si je venais de signer mon arrêt 
de mort ! 

Car Mac Douglas est le fils du 
plus riche rancher de la région 
ce qui fait que la loi du plus fort 
est toujours la meilleure ! Je 
suis donc obligé de fuir bien 
qu'ayant la conscience parfaite- 
ment tranquille. Je commence 
alors un périple qui s'arrêtera 
Dieu seul sait quand et com- 
ment ! C'est ainsi qu'après un 
court passage dans la bonne 
ville de Gold City, je préfère 



m'isoler en allant vers les mon- 
tagnes blanches. Malheureuse- 
ment, à cette période de l'année, 
le col est infranchissable et je 
dois alors attendre le printemps 
en apprenant le dur métier de 
t rappeur . Mais l 'arrivée du 
printemps est loin de m'appor- 
ter la tranquillité tant souhai- 
tée : la montagne me fera dé- 
couvrir les assauts des Indiens ; 
la plaine, le retour vers mes 
juges et le désert, la rencontre 
avec les Apaches bien que le 
Mexique se trouve au-delà du 
désert ... La question est : quelle 
est la meilleure solution ? 
Si vous décidez de tirer au clair 
cette affaire, vous serez aidé par 
des graphismes très agréables 
avec des fenêtres graphiques se 
superposant (technique désor- 
mais très utilisée) ; par ailleurs, 
vous progressez dans l'aventure 
(qui est accessible à tous) par un 
système de choix (ce qui est limi- 
tatif pour certains aventu- 
riers...) ; somme toute, l'Af- 
faire Santa Fe peut vous procu- 
rer quelques heures de dépayse- 
ment. 
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ba/vc pessA/ 



LOq/C/£LS 



Ik+ 

Sysfem 31 FIL 
Simulation 




Ifous n'êtes pas sans 
connaître Internatio- 

lï nal Karaté ; IK+ est 
une nouvelle version revue, cor- 
rigée et améliorée de ce logiciel. 
En effet, il y a désormais trois 
concurrents à l'écran et lorsque 
vous jouez seul vous êtes res- 
ponsable du kimono blanc. 
Pour ne pas être lamentable- 
ment disqualifié dès le premier 
round, il va falloir vous distin- 
guer à force de coup de tête, 
Ashi Barai, Gyakazuki, Tzuki 
Jodan... ou autres ! utilisés à 
bon escient et de la manière la 



plus intelligente possible. Dans 
ces conditions, il suffit de res- 
ter bien classé pendant deux 
rounds de 30 s chacun et vous 
êtes alors confronté à un round 
de bonus pendant lequel vous 
devez résister à l'assaut de bal- 
les, arrivant sous différents 
angles, grâce à l'emploi d'un 
bouclier. Mais il faut être très 
attentif car, plus vous résistez et 
plus la fréquence des balles s'ac- 
célère ! Ensuite, vous recom- 
mencez une nouvelle série de 
rounds et c'est victoire après 
victoire que vous devenez cein- 
ture jaune puis verte jusqu'à 
l'instant suprême où vous pou- 
vez devenir ceinture noire ! 
Ne vous dites pas : encore un 
logiciel de simulation de 
karaté ! Celui-ci est bien réalisé 
avec des personnages de bonne 
taille ayant de bons réflexes et 



des coups rapides et précis (à 
condition de posséder le bon 
joystick !). De plus, il faut 
remarquer le décor de fond qui 
est vraiment superbe avec des 
couleurs éclatantes. 




Hurlements 



Ubi Soft 
Aventure 

remblez âmes innocen- 
tes. Une malédiction 
millénaire a trans- 
formé ce qui était des hommes 
en monstruosités affamées de 
viande humaine. Sous l'appa- 
rence de loups, ils errent dans 



les forêts et bois profonds. Mais 
ces créatures du diable n'hési- 
lent pas à s'introduire dans les 
demeures lorsque la faim se fait 
trop pressante. Eloignez-vous 
de ces démons, vous risquez 
votre vie et peut-être même 
votre âme ! Kane n'avait visi- 
blement jamais lu cet avertisse- 
ment lorsqu'il décida, en com- 
pagnie de la blonde Lorry, de 
partir à la recherche des lingots. 
Ces lingots ont été volés il y a 
8 ans de cela et se sont retrou- 
vés dans une cache tenue secrète 





jusqu'à présent. Jusqu'à pré- 
sent en effet, car Kane a obtenu 
les aveux du seul rescapé de la 
bande de malfaiteurs. Aujour- 
d'hui, Kane va sortir de prison 
et se mettre à la recherche du 
trésor sans perdre de temps. 11 
entraîne avec lui Lorry Vixen, 
une adorable jeune fille de 
20 ans. Tous deux se mettent en 
route vers un coin perdu peu 
éloigné de Seattle. 
C'est là que l'aventure com- 
mence ; quelques maisons en 
ruine entourées d'arbres sinis- 



tres. Les deux héros sont seuls 
mais, malgré cela, une sourde 
angoisse les étreint : une pré- 
sence maléfique semble rôder 
aux alentours. 

Vivront-ils assez longtemps 
pour trouver les lingots et s'en- 
fuir dans cette voiture en mau- 
vais état ? 

Hurlements est un jeu d'aven- 
ture de la même veine que 
Zombi, on y retrouve les mêmes 
graphismes, la même gestion 
d'icônes mais, heureusement, 
pas le même scénario. 
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Platoon 

Océan 

Arcade! A venture 

Etant donné toutes les 
conversions ou toutes 
les adaptations de 
films qui sont maintenant mon- 
naie courante dans le domaine 



de la micro, il était impossible 
que Platoon ne devienne pas un 
jeu. C'est maintenant chose 
faite et c'est à la tête d'une sec- 
tion de cinq hommes profondé- 
ment déterminés que vous débu- 
tez votre mission. 
Pour commencer, vous êtes 
dans la jungle avec tout ce que 
cela sous-entend comme piè- 
ges ; en effet, quoi déplus sim- 



ple qu'une embuscade dans un 
tel environnement ! Ainsi non 
seulement il va vous falloir trou- 
ver le chemin du village (ce qui 
n'est pas forcément aisé) mais, 
en plus, vous devrez abattre 
tous vos adversaires et faire un 
petit détour pour récupérer de 
la dynamite qui vous permettra 
de couper tous les ponts avant 
votre entrée dans le village A 
partir de ce moment, il vous 
faudra visiter toutes les huttes 
pour découvrir une torche et 
une carte qui seront très utiles 
une fois que vous aurez trouvé 
le passage secret vous plongeant 
dans un dédale de tunnels. 
Ne pensez pas qu'il -suffise de 
sortir de ce labyrinthe pour 
accéder à la victoire car il vous 
faudra vous faire tout petit à la 
sortie des tunnels et essayer 
ensuite de retrouver votre chef 



de section qui n'est autre que le 
sergent Elias ; seulement, le ser- 
gent Barnes semble ne pas avoir 
un rôle très net dans Lout cela... 

La première partie de Platoon 
montre un graphisme assez 
fouilli et une animation pas très 
rapide ; le jeu devient plus 
attrayant après le village. Seu- 
lement, le problème est d'attein- 
dre ce village car même avec un 
plan ce n'est pas forcément évi- 
dent ! Alors, à réserver aux 
patients et aux persévérants. 




WmYEmm 




maintenant des tanks qui vous 
menacent. Et, tout à coup, vous 
vous sentez un peu débordé ! 

Alors, il ne vous reste plus 
qu'une soluiion : lâcher une 
bombe qui fera le nettoyage par 
le vide. Par ailleurs, de temps à 
autre, apparaissent des bonus 
qui peuvent vous apporter une 
vie supplémentaire ou une 
bombe ou bien encore la possi- 
bilité de doubler, voire de tripler 
votre tir ; ce dernier bonus sera 
particulièrement utile pour l'as- 
saut final contre un char 
énorme (en comparaison de 
votre petit avion). Une question 



Flying shark 



Firebird 
Arcade 

r 

ncore un jeu ou vous 

[_ devez vous distinguer 

en tant que sauveur de 

l'humanité ! Mais cette lourde 

responsabilité ne vous pèse cer- 



tainement pas trop puisque vous 
êtes connu et reconnu comme le 
Grand As de combat et une mis- 
sion en solitaire ne vous effraie 
pas plus que cela. 
C'est donc aux commandes de 
votre petit avion que vous 
décollez armé seulement d'une 
mitrailleuse à tir continu, de 
trois bombes (et accessoirement 
de trois vies...). Bien que la 
vitesse de croisière ne soit pas 
très élevée, les ennuis vous tom- 
bent rapidement dessus sous la 
forme de toute une escadrille. 
Vous avez à peine le temps de 
faire le ménage que ce sont 



subsiste : parviendiez-vous à 
atteindre et à anéantir les 
bateaux ? 

Flying Shark est une conversion 
d'un grand hit parmi les jeux de 
café de Tailo ; vous serez satis- 
fait dans l'ensemble bien que les 
déplacements ne soient pas 
épouslouflants !... 
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TRAITEMENT 
DE L'IMAGE 



1 " partie - Initiation 

SUITE 



•D. VASIUEVIC 





INVESTIGATION 



/ous avez créé r image-énigme et vous êtes 
maintenant impatient de commencer le 
traitement pour percer au plus vite le 
mystère. Mais par quel bout commencer ? Un 
traitement mal adapté, ou l'ordre des traitements 
successifs mal choisi, ne feront peut-être qu'empirer 
les défauts. 

Pour éviter les embûches, il faut avant tout 
traitement procéder à l'investigation du contenu de 
l'image. Cette investigation doit mettre en évidence 
les caractéristiques particulières de l'image. Les 
moyens d'investigations sont très nombreux. 
Certains nous donnent la représentation de l'image 
sous une autre forme, d'autres la représentation 
d'une partie de l'image bien définie ou encore la 
relation entre plusieurs parties de l'image. Ces 
moyens sont donc toujours basés sur un critère 
prédéfini ou sur les statistiques. En ce qui concerne 
le traitement artistique de l'image, certains de ces 
moyens d'investigation sont en même temps de 
véritables outils de traitement final. C'est le cas de 
SCANNING qui consiste en isolement et 
visualisation d'un seul niveau de gris (ou d'une 
couleur) de l'image. Le principe est très simple : le 
niveau de chaque point de l'image est comparé au 
niveau choisi et dans le cas d'égalité, le point est 
affiché, sinon il est supprimé et à sa place on 
affiche le niveau du fond. Un autre moyen 
d'investigation est la COUPE ou le PROFIL qui 
n'est autre chose que le graphique en échelle des 
niveaux de gris d'une ligne ou d'une colonne. Je 
vous laisse imaginer ce que peut donner, au point 
de vue artistique, une représentation en perspective 
de l'ensemble des profils de toutes les lignes d'une 
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image. Le moyen d'investigation le plus utilisé est 
un vulgaire HISTOGRAMME. C'est pourtant lui qui 
nous fournit un maximum de renseignements sur la 
répartition de niveaux de gris ou la DYNAMIQUE 
de l'image. Nous nous devons donc d'effectuer une 
étude plus approfondie de cet instrument. 
L'histogramme représente la CARACTERISATION 
STATISTIQUE de l'image et sa forme nous dévoile 
la nature (le caractère) de celle-ci. Sa construction 
est simple : on compte le nombre de points pour 
chaque niveau de gris en identifiant en même temps 
ces niveaux. Le total des points par niveau est égal 
au total des points de l'image. Connaissant les 
niveaux extrêmes possibles pour une image, vide 
(ou blanc) comme minimum et saturé (ou noir) 
comme maximum, il est facile de représenter 
l'histogramme graphiquemem. Il ne nous reste plus 
qu'à tirer toutes les conclusions : 

- sur l'aire de l'histogramme ; 

- sur sa forme ; 

- sur sa position entre le minimum et maximum ; 

- sur le nombre de niveaux représentés ; 

- sur la répartition des points entre différents 
niveaux. 

Si l'histogramme est étroit, cela signifie que le 
contraste est faible. Si l'histogramme comporte une 
vallée et deux sommets (histogramme BINODAL), 
cela indique qu'il est possible d'extraire l'objet de 
l'image (par SEILLAGE dans la vallée). 
L'histogramme à deux vallées signifie l'existence de 
trois régions importantes, par exemple le fond, 
l'objet et son ombre sur le fond. Si l'histogramme 
colle au minimum, l'image est trop claire, si il colle 
au maximum, l'image est trop sombre. La quantité 
d'informations moyenne contenue dans l'image 
dépend de la répartition des points entre différents 
niveaux. Dans le cas de l'histogramme PLAT 
considéré comme IDEAL, la répartition est identique 
pour tous les niveaux et le rapport entre le nombre 
des points d'un niveau et le nombre total des points 
est constant = 1/K. On dit que ce cas correspond à 
l'ENTROPIE MAXIMALE = log 2 K. 
L'histogramme plat sert comme référence pour les 
comparaisons, loute modification de l'échelle des 
gris entraîne la modification de l'histogramme. En 
connaissant d'avance l'histogramme souhaité, on 
peut calculer la nouvelle répartition des niveaux de 
CPC n° 33 -Avril 1988 



gris. Le résultat du calcul sont des tables qui, à 
chaque niveau de gris de l'image d'origine, 
associent les niveaux de gris de l'image future. 
s'agit donc déjà du traitement de l'image ou plus 
justement du PRETRAITEMENT tendant à 
l'améliorer. Nous verrons plus loin que chaque 
méthode d'amélioration comporte obligatoirement 
en premier une forme d'investigation, mais à un 
autre niveau que l'histogramme. La figure n° 2 
représente l'histogramme de l'image-énigme. 

PRETRAITEMENT 

AMELIORATION PAR MODIFICATION 
DE L'ECHELLE DES GRIS 

Une des méthodes couramment utilisées pour la 
modification de l'échelle des gris est la technique de 
RECADRAGE. Il s'agit dans ce cas, soit de décaler 
les niveaux de gris tassés dans une zone trop claire 
ou trop sombre, soit d'élargir la zone trop étroite 
occupée par les gris présents. On cherche en réalité 
à augmenter les écarts entre les niveaux de gris en 
déplaçant l'ensemble entre les nouveaux extrêmes 
choisis, sans changer le nombre de niveaux. En 
notant H1, mini, maxl et Ll, respectivement, 
l'histogramme d'origine, niveaux minimum et 
maximum et la largeur de l'intervalle occupé par 
les niveaux présents (Ll =maxl =minl) et en notant 
de la même manière, avec indice 2, les 
caractéristiques de l'image souhaitée, les futurs 
niveaux de gris sont : 

N2i = (max2 + min2)/2-((maxl+minl)/2)-Nli)*L2/Ll 



En faisant max2 = maxl et min2 = mînl, les niveaux 
ne changent pas, c'est la table IDENTITE. 
En faisant max2 = minl et min2 = maxl, les niveaux 
sont inversés, c'est la table INVERSE. 
En faisant max2 = min2, tous les niveaux sont 
confondus en un seul, c'est la table CONSTANTE 
qui, bien entendu, n'est jamais utilisée (pour effacer 
l'image max2 = min2 = 0). 

Le programme du listing n° 2 est un programme de 
recadrage. Saisissez-le et sauvegardez-le sous le 
nom "RECADRE". Faites des essais avec les 
différentes valeurs pour max2 et mîn2, les maxl et 
mini étant ceux de l'image affichée. Le programme 
traite l'image énigme "énigme" ou l'image en 
cours "image". Pour le moment, tant que l'image 
restera codée en chiffres, l'influence de recadrage 
ne vous paraîtra peut-être pas aussi évidente que 
ça. Mais dès que nous passerons à l'image par 
pseudo-gris, tout sera plus clair. Les figures 
numéros 3 et 4 représentent l'image-énigme 
recadrée et son histogramme. 

Si votre machine est un CPC 664 ou un CPC 6128, 
passez au chapitre suivant, mais si vous utilisez un 
CPC 464, lisez attentivement ces quelques lignes. 
Tous les programmes de démonstration utilisent la 
fonction COPYCHRS, inexistante hélas sur le CPC 
464. Nous remplacerons cette fonction par une 
CPC n° 33 - A vril 1988 
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Histogramme de l'image-énigme 
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ne après recadrage de l'histogramme entre 6 



Figura n° 4 






Histogramme de l'image-énigme après recadrage entre 6 
et 3 " _ _ 
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Image-énigme après égalisation de l'histogramme 



23 




petite routine placée dans nos programmes. 
Commencez chaque programme par la ligne 
suivante : 

100 '12345678 

Le programme BASIC doit être placé à l'adresse 
habituelle, &16F. Vous remarquerez que tous les 
programmes comportent une ligne 010 (1010, 
2010, 3010, etc.) réservée. Complétez cette ligne 
comme suit : 

2010 POKE &176,&CD:POKE &177,&60:POKE 
&178:,&BB:POKE &179,&32:POKE &17A,&7D: 
POKE &17B,&01:POKE &17G&C9 

Cette ligne place la routine dans les sept octets de 
la remarque ligne 100, le huitième étant réservé 
pour la variable. Chaque fois que vous 
rencontrerez la fonction COPYCHRS, comme par 
exemple dans la ligne 21 10:s8 = ASC(COPYCHR$ 
(# 1)), vous la remplacerez par CALL &176:s8 = 
PEEK{&17D)), la fenêtre courante étant substituée à 
la fenêtre # 1 . 

Par la suite, vous 

adapterez tous les programmes de la même façon. 






— I 



EGALISATION DE L'HISTOGRAMME 

Il existe un autre type de modification de 
l'histogramme qui cherche à rapprocher celui-ci de 
l'histogramme PLAT et à s'affranchir des effets de 
l'éclairage en normalisant l'image. Une des 
méthodes utilisées est LEGALISATION DE 
L'HISTOGRAMME. Cette méthode vise 
l'histogramme uniforme, donnant la répartition 
idéale des niveaux de gris, normalisant l'image, 
mettant en évidence les détails et en rehaussant le 
contraste. Ce rehaussement se fait dans les régions 
à forte population au détriment de celles à faible 
population. 

Comme d'habitude, nous ne rentrerons pas dans les 
explications théoriques de la méthode, mais 
étudierons son application numérique. 
En première phase, un histogramme classique nous 
donne la répartition des niveaux de gris (Ni). 
Ensuite, pour chacune des valeurs de répartition, 
nous calculons son pourcentage (nombre de points 
par niveau de gris divisé par le nombre total des 
points de l'images : Pi = Ni/M). La troisième étape 
est l'addition dans l'ordre croissant de ces 
pourcentages, ce qui fait associer à chaque niveau 
de gris la somme obtenue à son niveau 
( (SPi = Pi + P(i-l) ). Il ne reste plus qu'à effectuer 
la dernière opération pour construire la table des 
conversions : Gi = (SPi-Pi)/(l-Pi)ML-l) "L" étant le 
nombre total des niveaux de gris présents dans 
l'image. Il suffit, maintenant de remplacer chaque 
niveau de gris d'origine par le niveau 
correspondant de la table : Fi — Gi. On refait 
ensuite l'histogramme de l'image ainsi obtenu et on 
le compare à celui d'origine. 
Le programme du listing n° 3 correspond à cette 
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méthode. Le commentaire est le même que pour le 
listing précédent. La nouvelle image, ainsi obtenue, 
comporte moins de niveaux de gris que celle 
d'origine. Sauvegardez ce programme sous le nom 
"EGALISE". Les figures numéros 5 et 6 
représentent l'image-énigme égalisée et son 
histogramme. 

La deuxième méthode d'égalisation fixe d'avance le 
nombre de niveaux gris de la nouvelle image à la 
moitié de celle d'origine. Chaque nouveau gris est 
centré sur la bande idéale des niveaux possibles. 
Ainsi, on obtient en même temps le recadrage de 
l'image sur le milieu de la gamme et le 
rehaussement des contrastes. Pour utiliser cette 
méthode, il suffit de modifier le listing n° 3 selon le 

§ listing n° 3 bis. Sauvegardez-le sous le nom 
"EGALBIN". 

A chaque utilisation de cette méthode, le nombre 
de niveaux de gris baisse de moitié. Cela veut dire 
qu'au bout de quelques applications successives sur 
une image, celle-ci sera binarisée : il ne restera plus 
que deux niveaux. Nous verrons plus loin qu'il 
existe une autre méthode de binarisation ne 
nécessitant qu'un seul traitement. 
Les figures n° 7 et 8 représentent l'image-énigme 
binarisée et son histogramme. 



APLATISSEMENT DE L'HISTOGRAMME 

Malgré l'égalisation, l'histogramme n'est pas tout à 
fait plat. Pour cela, il faudrait scinder les niveaux 
en deux parties et attribuer chaque partie à un des 
nouveaux niveaux. Cette attribution se fait en 
principe en donnant au niveau plus bas les points 
entourés des gris hauts et au niveau plus haut, les 
points entourés des gris faibles (pâles). 
L'histogramme de l'image ainsi obtenue sera 
parfaitement plat, mais l'image ne sera plus fidèle 
à son original. 

SPECIFICATION DE L'HISTOGRAMME 

Au lieu de donner à l'histogramme une forme plate 
en l'égalisant, on peut aussi lui donner une forme 
quelconque, régulière ou pas, déterminée d'avance. 
On peut donc spécifier l'histogramme soit par une 
forme analytique, soit par une forme quelconque, 
composée de segments de lignes droites et même 
par le mixage des deux. En fonction de la 
quantification, la forme analytique peut être 
obtenue soit analytiquement, soit numériquement. 
La forme quelconque est obtenue par assignation 
interactive des niveaux. Quelle que soit la méthode 
utilisée, il s'agit de répartir les points de l'image 
entre les niveaux de gris (possibles ou souhaités) de 
façon à obtenir l'histogramme désiré. Ceci permet 
de favoriser les niveaux de gris voulus et de 
défavoriser les autres. Les possibilités d'utilisation 
de cette méthode dans un but artistique sont 
évidentes. Les variantes sont très nombreuses. Nous 
ne ferons pas de programme de démonstration, 
celui-ci ne pouvant être représentatif que d'un cas 
particulier. 
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Histogramme de l'îmage-énigme égalisée 
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Image-énigme bînarisée par trois égalisations N/2 
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Histogramme de l'image-énigme binarisée par trois 
égalisations N/2 
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Image-énigme après iversion des gris par recadrage de 
l'histogramme entre -0" et 9 
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Rentabilisez votre 6128 (*) 
&PCW 8256/8512 

Programmes en accès Direct 

Gestion de fichiers, + de 900 fiches 
de 186 car. répartis en 10 rubriques 
rech. multicritères. Mailing, 120 F 
Gestion comptes bancaires + de 
3000 écritures, nb cpt illimité 180 F 
Gestion de bibliothèque + de 1500 
titres de livres ou revues 180 F 
Compilation des trois programmes 
pour CPC 6128 uniquement.-. 320 F 
Envoyez votre commande 
et règlement 
(Prix port compris) 
à 

M. Roger Desfournaux 

31, rue du Couvent 
84300 CAVAILLON 

Tél. 90.76.13.49 
Rens. + catalogui 
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L'EUROPE ? 

POUR 
GAGNER ! 



va sérieusement modifier le marché in- 
formatique. Pour faire face, deux solu- 
tions s'offrent a vous : 

- Faire face en indépendant aux 
GRANDS Européens. 

- Intégrer un groupe tort qui vous don- 
nera les armes pour GAGNER. 

Vous avez choisi la V e solution : 
BRAVO ! Et bon courage. 

Vous préférez la seconde solution : 
FELICITATIONS ! 

Vous êtes conscient que la distribution 
informatique de dem 
moyens puissants. 




PLUS 
JAMAIS 



FICHIER 



SIMPL 




.Fichier de 65000 caractères 
.256 caractères «axi par fiche 
.De I à 99 sones par fiche 
.Manipulation du fichier à travers des 
■KJRMULAIRES ECRANS" paramétrables 
.Modifient ion -Visualisât ion-Suppression 
Sur Sélection MONO FICHE ,MULTI CRITERES, 

Sur l'ensemble du FICHIER 
.Fonction de tri du Fichier 

FICHIER SIMPLE 

répond à TOUS vos besoins : Fichier stock 

Fichier clientèle .documentaire ,etc ... 



H.L.C des «railles BP 03 

tataigut 63Î0C 5t Eloy Les Bines 

(Rens :Boberto Tel 16-l.t5.92.81.25) 



isting 2 



2020 HODE 1.: NINDDtl 



0. 23, 25: WINDlStU. 1 . 40. 1 . 22 



2030 ÎNPUT !i nofn de IiffiaseV 



2040 MB eci22.40).a(i0) 




n$:L0AD n$+ !! ,BCR Ei ;drapeau= /•6P 



2080 FOR 1=1 TO 2!:L0CATE i.iiPRINT i. >£ 

2090 FOR j=i TO 40 ' Lu 

2100 LOCATE lO.llPRINT ji >UG 

2110 LOCATE#l.j.i:sB=ASC(CDFYCHR$«l!) >HN 

2i20 a(sB-4Bi=a(s8-4B>-<-l >RK 

2130 NEXT i m 

2140 NEXT i:CLS#l >*J 

2150 HODE l:k=0:i=0 fK - 

2160 F'RINT TABil5):"hi5t3qraiMie L; >FW 

2170 F'RINT TAE ( 15) : " *********** " : F'F:INT : rRINT ; HB 

2180 FOR i=0 TO 9 :IF aiii.'k THEN k=aiil /EH 

2190 ÎF aii(</0 THEN 1=1+1 >T* 

2200 NEXT i: k= iiO/k) : !îi=40*2i NK 

. 2210, FOR 1=0 TO RiFRIsT iiaii; :TAB(10;: .'Fï 

2220 FOR 1=1 TO -INH-k*au! 1 '*> 

2230 PRINT CHRt(143ï: W 

2240 NEXT .l:PRINT '' Nj 

2250 NEXT l >'* 

2260 IF drapeau=l THEN END >W 

2270 WINDOW 1.40.23,25:ClB >* 

22B0 INPUT "ma;<i.iiiiîu? ".mal. «il >ÇD 

2290 INPUT "jiax2.Bin2? ".Sia2.«i2 X3 

2300 Il=ma!-!iii:I2=»a2-si2;f.3=12/n *DF 

2310 cl=!i»al+jnl;/2:c2=(»a2+œi2)/2 ME 

2320 FOR i=i- TO 1000:NEXT i >UA 

2330 NOUE 1:WINDDW 1.40. 23. 2S:WIND0W#i, 1.40. 1.22 >0V 

2340 LOAD n*+".SCR" W 

2350 FOR 1=1 TO 21:lOCATE 1, liPRINT i. /tJ 

2360 FOR 1=1 TO 40 'Le 

2370 LOCATE lO.llPRINT i: X» 
2380 L0CATE#l..j.iis8=ASCiC0PÏCHR$(#i!)-4B >LD 

2390 n2=r2-scl-5B)*t6tPRÎNT#l.CHR»l-2+4B) *H 

2400 NEXT i >* 

2410 NEXT i;drapeau=l ' F:t 

= - . -i -- -■ - > m 

2430 «INDUIS 1.40. 23, 25:lï'INDC*itï.l,40. 1.22 ,'Hï 

2440 FOR 1=0 TO 9;aiï)=i.;4LAT i — 

2450 60T0 20B0 «"'• 

listing 3 

30S ..- .e- ..-:-."-- - -- - . .-* 

3010 »<fi 
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,_JE liSlNDOH 1.40. 23. 25:i4IND0«l. 1,40. 1.22 >0R 

3030 INPUPnosi de ï'MSje? ",p.*:LOAD n*+".SCR":drapeau= >BB 



XÏA 



LOCALE 1 
LOCATEttl 



3140 NEXT lîCLSI 
3150 HODE l:k=0:T 
3160 PRINT TA6U5 
3170 PRINT TAB;i5 
3180 FOR i=" TO 
3190 IF «Il >0 



LOCATE i.hPRINT ». 



5H=aSL(C0PïCHP$ ; #i)i 



!i hi5tDQrain^' : 
"*******♦***" :PRM:PRINT 
IF aui/k THEN k=a\i; 



:TABi 



220 FOR .1=1 TO -lN: ; -fc*; 

.230 PRINT CHR*U43): 

a« NEX; >:FSM 

250 NEXT i 

Î280 IF arapeaiFl THEN END 

5270 FOR i=0 TO 9: IF aiii- 

5280 bii)=aui;a 

Î290 IF l>0 THEN ca)=bi 



ELBE c(i)=blil 



3300 dii! = (c(l!-0!i)!/U-b!i))*a-l) 

3310 d(i!=INT(d!i)!:FRINT a(i):b(l! ;c(i) :d(i) 

3320 NEXT i:FOR i=i TO 1000:NEXT i 

3330 HODE 1:WINDQW 1. 40,23, 25:«IND0««i. 1.40. 1.22 

3340 LOAD n$+".SCR" 

3350 FOR 1=1 TO 2l;L0CATE 1,1:PR:INT i, 

3360 FOR 1=1 TO 40 

3370 LOCATE lû.liPPIHT j: 

3380 LOCATE* 1 , j . i : sB=ASC i COPVCHRI 1 # 1 ! i 

3390 PRINT#l,CHR*(dlSe-48i+4Bi 

3400 NEXT ] 

3410 NEXT i:arapea[i=î 

3420 SAVE" IHA6E. SCR" ,0. iCOOû.MOOO 

3430 WINDOW 1.40,23.25:BIND0W#1, 1,40, 1.22 

3440 FOR 1=0 TO 9:a:i;=v:NEXT i 

3450 BOTO 30B0 

Listing 3 bis (lignes à modifier) 

• • • 

3265 PRINT I 

3270 c=0:d=0:i=0:b=CINT(i/2):k=HINim/b,in/2):l=û 

3280 c=d:d=d+a!i):IF d>=k THEN 3300 

3290 i=i+tsff KM THEN 3280 

3300 IF (k-c)<=!d-k! AND i<9 THEN l=i-l 

3310 FOR l=! TO i:dU)=ClNT((I+lS/2S:NEXT l 

7320 i=i+l:IF i<10 THEN i=i:d=0:60T0 3280 



>LH 

■m 

>HP 
>RL 
)WD 

m 

>ND 

m 

>HC 
>EN 

m 

>FZ 
.;>WH 

>0S 

m. 
m 

>UT 

m 

>BC 

m 

>CG 
>PT 

;>ap 
m 

JHZ 
XEtC 
>LH 
>UT 
>HZ 
'*¥F 
>HD 
>RF 

>m 

>HZ 
>YU 
">NA» 



m 

M 
XL 

m 

m 

M.V 

■Mm 
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FCW 



MASTER-ScAn 



DATABASE SOFTWARE 




rjeaucoup de person- 
f .nés sont persuadées 

J^Jque le PCW n'est 
qu'une "machine à sortir du 
texte". Le numériseur ROM- 
BO présenté récemment dans 
CPC a sans doute balayé cette 
idée fausse. 

Seulement, un équipement 
vidéo coûte relativement cher. 
Il existe une autre solution per- 
mettant d'obtenir des images 
"numérisées" à bas prix, les 
possesseurs de CPC connais- 
sent déjà le Dart Scan. En 
revanche, les fanatiques du 
PCW connaissent-ils tous le 
Master-Scan ? 

Ce produit est composé d'une 
partie logicielle et d'une par- 
tie matérielle. Un boîtier blanc 
contenant l'électronique se 
connecte sur le port expansion 
à l'arrière du PCW. De ce boî- 
tier s'échappe un câble dont 
l'extrémité est insérée dans un 
"cube" de plastique. C'est à 
cet endroit qu'est placé le dis- 



positif de lecture : un capteur 
de lumière couplé à une petite 



de fin, la couleur de l'écran 
(inversion vidéo ou pas). Les 



ampoule. Ce dispositif se fixe autres options du menu sont la contrastes. 



se passer des options de trai- 
tement de l'image "scannéri- 
sée". En effet. Te logiciel ne 
contient pas ces options. Les 
logiciels précités arrivent donc 
à la rescousse de Master-Scan 
qui pourrait être considéré 
comme le début d'une chaîne 
de PAO sur PCW. 
Les résultats obtenus, s'ils n'at- 
teignent pas la qualité des 
images "vidéos", sont tout de 
même satisfaisants. On peut 
même obtenir des dégradés 
de gris par alternance de 
points noirs et blancs. Les meil- 
leures images proviennent de 
dessins ou de photos en noir et 
blanc, de préférence mates, 
car une surface brillante a ten- 
dance à réfléchir trop de lu- 
mière. 

Dernière option commandée 
par un bouton sur le boîtier de 
l'interface : la sensibilité de la 
cellule. Ceci permet d'obtenir 
une image plus ou moins fon- 
cée et donc de jouer sur les 



sur la tête d'écriture de votre 
imprimante. Ensuite, c'est la 
mécanique de l'imprimante qui 
va déplacer le tout. L'image à 
reproduire est placée sur le 
rouleau d'entraînement, com- 
me une vulgaire feuille de 
papier. La lumière réfléchie 
plus ou moins intensément 
selon la couleur (noire ou blan- 
che) présente sur la feuille. Les 
informations sont ensuite en- 
voyées vers l'ordinateur qui 
peut alors convertir, via un 
logiciel approprié, les valeurs 
numériques en points sur 
l'écran. Le logiciel livré avec 
l'interface est très simple d'em- 
ploi : le menu comprend les 
fonctions SCANNER qui per- 
mettent la numérisation de 
l'image selon les critères sui- 
vants : la taille, variant de 1 12 
à 6 (avec les valeurs 1/2, 1 , 2, 
3, 6), les colonnes de début et 



gestion des fichiers images En résumé, le Master-Scan est 

(chargement, sauvegarde un appareil performant qui 

directory),'il est à noter que les autorise la présence, à moin- 

formats de sauvegarde peu- dre frais, d'images digitali- 

vent être compatibles avec sées. 

PCW Paint, Fleet Street Publis- Pour tout renseignement, con- 

cher, DTP PAO, Newsdesk. tactez WINGS MICRO DIF- 

Cette compatibilité permet de FUSION» 



Power Products 






HasterScanJi 






Menu Scanner 



,! El i :. 



jt: 



Hl 



Co lonne du deit: 
Colonne de ■:< ïm ï«9 

Cou leur pcran : Nonnna !i& 

Menu ■foruot ions iT ich ier 
Sortie vers CïVM 



=J Utilisez * et ■* pour sélectionner ]= 
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BILLARD AMERICAIN 



Que les dieux informatiques 
nous pardonnent ! Les 
(nombreux) lecteurs qui nous 
ont téléphoné avaient deviné 
que le programme publié dans 
le numéro 33 était en 
Assembleur. Il fallait donc 
posséder un programme 
permettant d'entrer les codes. 
Cette longue liste n 'est pas 
inutile puisque vous réclamez 
souvent des listings 
Assembleur commentés, ainsi 
que des jeux bien réalisés. 



Si vous avez un Assembleur et si 
vous avez réussi, grâce à la fin du 
listing paru dans ce numéro, à obte- 
nir un listing objet (OBJET.BIN), 
alors vous n'aurez pas de problè- 
mes pour rassembler les morceaux 
du puzzle. 



Le numéro précédent vous a permis 
d'apprendre par cœur le mode 
d'emploi, donc plus de problèmes 
de ce côté-là. En revanche, le char- 
gement des programmes risque de 
vous poser quelques problèmes. 
Récapitulons donc la marche à sui- 
vre, deux cas se distinguant : 
vous possédez un lecteur de disques 
ou bien un lecteur de cassettes. 



VERSION DISQUE 



Tapez et chargez tous les listings, 
c'est-à-dire : "LISTING1", "LIS- 
TING2", "BILLARD.BAS", "BIL- 
LARD! .BAS". 

Une fois toutes les vérifications 
d'usage effectuées, tapez RUN 
"LISTING1", le lecteur se met en 
marche puis l'écran affiche READY. 
Tapez RUN "LISTING2", le dérou- 
lement est identique à la séquence 
précédente. Maintenant, le pro- 
gramme est prêt : il ne vous reste 
qu'à taper RUN "BILLARD" pour 
lancer le tout. 




Les choses se compliquent un peu : 
il faut utiliser deux cassettes pour ne 
pas trop se perdre dans les dédales 
informatiques. 

La première cassette (ou cassette 
n° 1) devra contenir tous les pro- 
grammes parus dans ce numéro sauf 
les listings Assembleur bien sûr. 
Sur la cassette n° 2, vous devez tout 
d'abord enregistrer le listing "BIL- 
LARD". Ensuite, il faut reprendre la 
cassette n° 1 et charger le pro- 
gramme "LISTING1" en mémoire 
parunLOAD"LISTINGl". Repla- 
cez la cassette n° 2 et tapez RUN. 
Suivez les instructions inscrites à 
l'écran (PRESS REC AND PLAY). 



Une fois la sauvegarde automatique 
effectuée, il suffit de reprendre la 
prodédure en remplaçant le pro- 
gramme "LISTING1" par "LIS- 
TING2". 

Enfin, le programme "BILLARD1" 
est à placer en deuxième position. 
Si vous faites un CAT sur la cassette, 
vous devez obtenir l'ordre suivant : 
BILLARD.BAS - DATA.IMG - DA- 
TA. DEC - OBJET.BIN - BILLARD1 . 
BAS. 

Pour lancer le programme, il suffit de 
taper "RUN". 
Bon courage ! 
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"Erreur lign 
35 SAVE "OATA.l 
40 SAVE "DATA.D 
100 DATA 80,00, 
105 DATA OE.OO, 
110 DATA 0E,00, 
115 DATA OE, 00, 
120 DATA OE.OO, 
125 DATA OE.OO, 
130 DATA OE.OO, 
135 DATA OE.OO, 
140 DATA 80,30, 
145 DATA 30, IA, 
150 OATA 30, IA, 
155 DATA 30, IA, 
160 DATA 30,19, 
165 DATA 80,30, 
170 DATA 12,80, 
175 DATA 17,12, 
180 DATA 12,00, 
1B5 DATA 00,18, 
190 DATA 00,80, 
195 DATA F3.03, 
200 DATA 5E,0F, 
205 DATA 17,12 
210 DATA 12,80 
215 DATA 18,12 
220 DATA 30, FC 
225 DATA 12,80 
230 DATA A7.51 
235 DATA OC, 12 
240 DATA F3.F3 
245 DATA 32,30 
250 DATA 0F.F3 
255 DATA 30,05 
260 DATA 30,24 
265 DATA 00,17 
270 DATA CO,CF 
275 DATA 81 ,00 
290 DATA 60,30 
285 DATA 3F, 02 
230 DATA 03,12 
295 DATA 02,03 
300 DATA CO.CO 
305 DATA 17,12 
310 DATA 3F, 3F 
315 DATA 7E.3F 
320 DATA 00.18 
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DD, 
?E, 
37, 
3A, 
CD, 
20, 
3A, 
FD, 
FD, 
23, 
04, 
20, 
68, 
OB, 
04, 
20, 

10, 

3E, 
FE 
CO 
DF 
20 
OE 
FE 
7B 
18 
C9 
16 
23 
7E 
23 
OF 
E6 
00 
28 
C3 
.21 
,34 
,06 
,20 
.28 
,09 
,7E 
,55 
,A1 
,C7 
,43 
.77 
,84 
,08 
,37 
.32 




-7, 

19, 

94, 

57, 

D5, 

01 , 

99, 

94, 

3F, 

23, 

18, 

58, 

CB, 

20, 

28, 

FF, 

3E 

03 

78 

FI 

CD 

B7 

10 

C9 

08 

02 

08 

ce 

4E 
93 
23 
FF 
94 
06 
B7 
AO 
08 
,CD 
.7E 
,0D 
,03 
,01 
.12 
,F6 
.OE 
,20 
,42 
,DD 
,22 
,00 
,06 
.FF 
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08, 
00, 
3A, 
CB, 
7E, 
7A, 
C3, 
53, 
CO, 
11 , 
3B, 
03, 
20, 
CB, 
06, 
7B, 
20 
11 , 
F5 
9F 
05 
01 
40 
D5 
48 
B7 
E5 
F6 
07 
21 
FI 
47 
3A 
A6 
23 
CD 
,A1 
,23 
,06 

,10 

,00 
.10 
.Al 
,04 
,D5 

,00 

,7E 
,86 

, ee 
,01 

,07 
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1235 DATA D6, 

1240 DATA 16, 

1245 DATA 08, 

1250 DATA 01 , 

1255 DATA DD, 

1260 DATA Dl , 

1265 DATA 11, 

1270 OATA ED, 

1275 DATA 07, 

1280 OATA 77, 

1285 DATA CD, 

1280 DATA 20, 

1265 DATA 60, 

1300 DATA IC, 

1305 DATA 7B, 

1310 DATA OD, 

1315 OATA FF, 

1320 DATA FE 

1325 DATA C3 

1330 DATA DA 

1335 DATA 20 

1340 DATA OE 

1345 DATA FE 

1350 DATA CD 

1355 DATA FE 

1360 DATA 7B 

1365 DATA E6 

1370 DATA 96 

1375 DATA 20 

1380 DATA OB 

1385 DATA 46 

1330 DATA 44 

1395 DATA C9 

1400 DATA 2A 

1405 DATA 02 

1410 DATA 9B 

1415 DATA 43 

1420 DATA 08 

1425 DATA 18 

1430 DATA FF 

1435 DATA 00 

1440 DATA CD 

1445 DATA 10 

1450 DATA 20 

1455 DATA DC 

1460 DATA Dl 

1465 DATA 00 

1470 DATA DD 

1475 DATA 21 

1480 DATA 8A 

1485 OATA FF 

1480 DATA FF 
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360 DATA 3F 
365 DATA 15 
370 DATA 03 
375 DATA 80 
380 DATA 12 
385 DATA CC 
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■*#**#***#**#****1H**#**#****#****#**************#* 



I L L A R D AMERICAIN 



par 



BARDEUR Lionel * 
80 '« NOV 87 Version 2 » 

90 '* * 

100 '***#****#***#****#*#*#***#*#*#***#*#*****#******* 
110 

120 MEMORY 4B6AE 
130 ' 

140 L0AD "!data. img".8iB6flF 
150 L0AD "Idata.dec". 49200 
160 ' 

170 CALL SS200 

180 LOCATE 4,2:PRINT "ï I L L A R D":L0CATE 2.4:PRINT " 
AMERICAIN" 

190 LOCATE 1.20:PRINT "Chargeeent en cours" : LOCATE 5,21 
:PRINT "Patiente:..." 
200 LOAD "!ob,iet". 49000 
210 m " îbil lardî" 



10 

20 

30 

40 

50 

60 

70 

/NI 

80 

TO 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 



Bïïisud 1 bas 

* # 

'* B I L L A R * 
'* * 

'» 2 e»e VERSION » 

'■a******************************* 
LOCATE 1.20:PRINT" Voulez-vous 11 



>LA 
>LB 
>LC 
>LD 
>LE 
>LF 
>L6 
>LH 
>LJ 
>RB 
>RC 
>LA 
>RE 
>«H 
Mi 
>RH 
>HK. 



>TP 
>0EO 



,'LA 
>LB 
>LC 
>LD 
>LE 
>LF 



règles (0 



a$=INKEY$:a$=UPFER$ia$):IF a$="0" THEN GOSUB 3940:B0 >FR 

110 

IF a$C"N" THEN 60T0 80 >TZ 

MODE 2: GOSUB 4390 

: * data d'initialisation de ss . vv st v;< 

DATA ■ I 2, 00 , FF. 56 . 01 . FF, 56, 1 1 , FF . 5i! 55, FF 

BATA 56,FF.FF,56.FF,55,56,FF,il,56.FF,01 

DATA 44,FF,0Û.4C,FF,01,4C,FF,11.4C,FF,55 



DATA 4C.FF,FF,4C,55.FF.4C.ll,ft.4C,01,FF 

DATA 08. 00, FF, 28, 01, FF, 28, 11, FF, 28. 55, FF 

DATA 2B,FF.FF,2B.FF,55,2B.FF,11,28,FF.01 

DATA 20,FF.00.32,FF,01.32,FF,11,32,FF,55 

DATA 32,FF,FF,32,55,FF.32.11,FF,32,01,FF 

: * data des angles 

DATA 0,4.7.14.26.45,64.76.90 

DATA 104, 116. 135, 154, 166, 173, 176. 180 

DATA 184, 187, 194,206,235,244,256,270 

DATA 284,296,315,334.346.353.356 

'* * 

'* initialisation * 



>PT 
>RC 
>K¥ 
>LX 
>LL 
>LB 
>KE 
>LX 
>KJ 
>LC 
>RC 
>XN 
>EH 
>E2 
>BZ 



280 '* * 

290 '***#**#****#+******************* 

300 DIM aiPK(15),upy(15).iiaf(311 

310 DIM SP(32),5s(32),vy(32),vi((32),NB(16) 

320 FOR 1=1 TO 32:sp(i)=49000+li-l)*41B:NEXT i 

330 K=45:y=50:s5=2:anbt=sp(l) 

340 RESTORE 110 

350 FOR i=l TO 32:READ a*,b$,c* 

360 a=vAL( n 4"+a»> :b=VAL("4"+b») :c=VAL("l>"+c*) 

370 5s(il=a:vy(il=b:vx(i)=c 

380 NEXT i 

390 FOR 1=0 TO 15 

400 NB(I+U=4952A+I*420 

410 NEXT I 

420 FOR i=0 TO 31 : READ maf Ci) : NEXT i 

430 POKE 49BED.41F 

440 DEG:an=0:de=4:fo=0:tbt=0;ouv=0 

450 .icueurl=0: ioueur2=Ù:ouv=0 

460 '♦**#**********#**#*******#****** 

470 * * 

480 * dessin décor * 

490 "* « 

500 ' *******+♦********#**+**#******** 



* pas couleurs 



530 



: NEXT 



540 MODE OiBORDER 0:F0R 1=0 TO 14:1» 

550 ' * 

560 ' * dessin de la table 

570 ' * 

580 FOR i=0 TO 24 STEP 2: PLOT 0,l,7:DRAK 376, ii PLOT 0,3 

9?-i:DRA« 376, 399-k NEXT 

590 FOR 1=0 TO 24 STEP 4:PL0T i,0:DRA« i.399:PL0T 37t-i 

,0:DRAN 376-1, 399:NEXT i 

600 ' * 

610 ' * dessin des quatres coins 

620 " ♦ 

630 SYMBOL 255. 4FC,4F0.4E0,4C0.4C0, 480,480,480 

640 SYMBOL 254,47E.41E,4E,46,46,42,42,42 

650 SYMBOL 253.42. 42.42, 46,46, 4E,41E,47E 

660 SYMBOL 252, 480. 480, 480, K», 4C0. 4E0, 4F0. 4FC 

670 PEN 1 : LOCATE 1,1:PRINT CHR$l22!CHR*(l!CHR$i255) :LOC 

ATE 12.1:PRINT CHR*(254i 

680 LOCATE 12,25:PRINT CHR* (2531 :: LOCATE 1,25:PRINT CHR 

*(252)CHR*(22)CHR$C0i::L0CATE 1,1 

690 ; » 

700 ' * dessin des quatres boulons 

710 ' t 

720 PLOT 4,2,5:PL0T 4,397:PL0T 372,2:PL0T 372,397 

730 ' « 

740 ' * dessin des quatres rebords 

750 ' * 

760 PLOT 4,8,3:DRAW 4,3B9:PLOT 12,395:DRAW 364,395: PLO 

T 372,3B9:DRAH 372,10:PL0T 364,4:DRAH 8,4 

770 ' * 

780 ; * dessin des diamants 

790 ' * 

800 PLOT 190,385. 1 : PLOT 106,385:PLOT 27O,3B5:PL0T 190,1 



>TA 
>TB 

>w 

)JY 

;>MN 
>YR 

m 

>XA 

>LN 
>XC 

m 

>CJ 
>0F 

m 

>CH 
'MB 
;>ED 
>AB 
>TA 
>TB 
>TC 
>TD 
>RF 
>RG 
>RH 
>RJ 
:>NP 
>TA 
>TB 
>TC 
>EB 



>RG 

>m 

>RJ 

>MR 
>FK 

>FK 

>MR 
>FQ 



MF 
>RH 
>RJ 
>RQ 
>TA 
>TB 
>TC 
>CN 

;te 

>TF 
>TG 
>YM 
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dâ 



ÎV> PLOT 270,15:PL0I lS.23d: o L0T 18.328: PLOT 18.248:FtO 

' !8.146:FtGT 18.1Û6:PLÛT 18.64 

32C ; lOT 360.288:PLOT 36Û.328:FIÛT 360.248:PL01 Ï6Û.146 

: r lûT S60.1û6iF1_0T 340.66 

I * 

350 » 

':-.. SYflBÛL 255.4E0.4E0.4C0.4B0. 480.40.40.40:8(11801 254: 

10.40,41. M. 43. le3.i87.4C7 

B7C c lGT 18.40. ?:TAS:NÛVE 1E . 40: = s ! mt CHR$l255j::HQVE : 

B.24iPRINT CHR*(254>: 

380 SYrSOL :".". 7 .:.3.i.;:SyifÛL 254.0,0.480.486.iCO.* 

:!.4E1.4E3 

:: : H0VE Î32,40:PRINT CHR*!255i::H0VE 332.24.-PRINT CHfil ' 

254!: 

=00 SYHBÛL 25J,i:C7.78 7 .s87.3.!.;:S»B0L 254.0.0,480.480 , 
.4C0.1CO.K0.1EO 
?!C< «NE 18.3B4:PRIHT CHR$t255)::M0VE 1B.36B.-PRINT CH» 

254!! 

720 5YHBOL 255.4£3,4El,4C1.4B0.480:SyHSOL 254,0.0,1.1.3 

.T. 7 . 7 

?30 HOME 7-3;. 7S4:P?-:riT CHR»(255)::N0VE "2. ". = 8:F= T -J7 CH 

s»(254): 

: -"3 SiiiBOL 255.4£0.4C0.430:SftfBQL 254. 0,0. 0,0. 460, 4C0, S 

: : . SiFo 

*SÛ UNE i4.212:PRÏNr CHR$I255!::MDVE 14.196:CRINT C-ftî 

2-54): 

560 8fflB0L 2::. 7 .3.,:S-iBCl 254. 0.0. 0.0.1. 3.7.4F 
; "0 flOVE 33é.212:PRINT ChRï' 255.' : :1C.'E 334.196:PRM CH , 
: 5;254;: 

=80 CAlL 4A120,5.16.49ICB:CAU 4Al20.B5.ià,491CB:CALL : 
'120.4, 467.491BÛ 
9*0 CALL ÎA:2i;.86.?:6 7 .: ; ::.::a._ -vAl20.5.c.»E.i ; 'lC?:CALL ; 

iA!2C.35.4àE.J91CB 
: m TA6ÛFF ,( 

:.!■:■ * 

1020 « csssii a. titre 

: :.• - 

. - FOR 1=381 70 40C STEF 2:f^C T 38Q.i,9:DSAw t~. z , ::'.£ >t 






EH 



W 1=36.: jQ 394 iîEk 2;njî SbB.i.iuiSKrtu »27.i:s 



'ipuo««* 



»» 



G*.''- '' 
[duca** 



EXPLOITEZ 

VOTRE 
AMSTRAD 

le livre + la cassette 



103 F 



FRANCO 
Jeux - Gestion 
Education - Domestique 
Impression de documents 

Un best-seller 



Bon de Commande 

à renvoyer à STAMP DIFFUSION," 17, rue Russeil - 44000 NANTES 
Exploitez votre Amstrad. 103 F - Port gratuit. 



Adresse ,, 

Ci-joint chèque de 103 F. 



!iC* PRIffl CHR»(23)CHMt3):PL0T c" .:. l:ÎA6iWVE -*-■;-= Wï 
I:PRINT "Bia^D u ::TAGCFF:PRINI CHRî(23 CHR*i0î: 



Des Coi/rs 
par Correspondance 

POUR AVOIR UN METIER 



Pour reprendre ou continuer vos études tout en travaillant 

Pour changer de métier ou vous spécialiser sans interrompre vos activités 

INTERROGEZ-NOUS ! 

Nos Conseillers Pédagogiques vous orienteront dans vos études. 



Formations professionnelles 

- Analyste Programmeur 

- Programmeur sur 
micro-ordinateur 

- Technicien en 
microprocesseurs 

- Technicien en Electronique 
et Micro-Electronique 



Nos cours peuvent eke 

FORMATION CONTINUE 



..: F0(i 1=631 ? 139 STEF 4.-PL0T :.7;3:Qf.Ah i.2;5:l£; T fi 
CPC n° 33 - A vril 1988 \v . 



une idée pour "créer, chez vous, votre 
propre Entreprise de Traitement 
de Texte sur AMSTRAD" 




INSCRIPTIONS TOUTE VANNEE 






IPIG 



INSTITUT 
PRIVE 



D'INFORMATIQUE" pfémZ"" 
ET DE GESTION \ JJJ—" 



Brochure gratuite n' X4012 
NOM.-. 



(1) 42 42 59 27 ! TéL_ 



39 



dEL 



1170 FOR i=3BO TO 388 STEP 4:PL0T i,353:DRMI i.265:NEXT : 

1180 PLOT 510.353:DRAW 510,265 

1190 FOR i=261 TO 265 STEP 2:PLDT 3S0.i:DRflW 639.i:t-IEXT 



' STEP 2: PLOT 3B0,i,8:BRAH 439,i:NE 
ihleaiis de la direction et de tores 



1200 FOR i=293 TO : 

M 

1210 ' * 

1220 ' * dessin du 

1230 ' * 

1240 PLOT 639,26!:DRAti 639,0:PL0T 510. 167:DRAW 639,167: 
PLDT 510,167:DRAei 639.167 

1250 PLOT 639. 261: DRAW 639.0:PL0T 380,0:BRA« 639.0:PL0T 
380.2:DRAW 639,2 

1260 PLOT 3B0.Ô:BRAW 3B0.261:PLQT 510. 132: DRAW 639.132 
1270 FOR 1=4 TO 130 STEP 2:PL0T 512. i,5:DRAB 635. i: NEXT 



,18: DRAW 580. 12Z:DRM4 368.12 
RAK 560. i: PLOT 



1280 PLOT 56S.!B.8:DRAW 

2: DRAW 568.18 

1290 FOR 1=18 TO 118 STEP 50:PL0T 544, 

58B.i:DRAW 6Ô4,i:NEXT 
1300 FOR 1=18 TO 118 STEP 10:PL0T 552. i: DRAW 560,i:PL0T 

5B9.i:DRfW 596.i:!€XT 

1310 d=4;j=0:F0R i=150 TO 165 STEP 2:PL0T 526+d*!2,i.tO 
■iDIWWfi i*3*4+3,0:d=d-0.5:j=j+l:NEXT i 
1320 FOR i=l TO B:PLOT 520+ 1*12,164.8: DRflWR 0, -15: NEXT 
1330 FOR 1=1 TO 8 STEP 4:PL0T 525+48+1. 147. 3:DRAWR 0,-1 
2: NEXT 
1340 ' * 

1350 ' * dessin de la valeurs des balles 
1360 ' * 
1370 LOCATE 13. 10:PRMT "1234": LDCftTE 13,14:PRINT "5678 



1380- LOCATE 13.18:PRINT "9012":L0CA;E 



PR1NT '3450 fil 



1390 PLOT 510.261. 8:DRAN 510.0 

1400 FOR i=4 TO 261 STEP 64:PL0T 38i.i.B;DRAW 510. iîNEX 

T 

1410 FOR i=l TO 4;CALL lA120.B9+i*B,115,sp(2+i*2j :NEXT 

1420 FOR 1=5 TO 8:CALL iAl20.B9+ii-4)*B.83.spi2+l*2) :HE 

XT i 

1430 FOR 1=9 TO 12:CALL M120.S9+I i-8!*8.51.spi2+l*2; ;N 

EXT i 

1440 FOR 1=13 TO 15:0flLL SiA120.89+ii-12}*8. 19,sp(2+l*2) 

:t€XT i 

1450 CALL M120.121.19.sps2» 

I46u * 

1470 ; * dessin de la balle de tir 

1480 : * 

1490 CALL M120.142.111.&9000 

1500 ' * 

1510 ' * dessin aes baules 

1520 ' * 

1530 DATA 45.50,2,45,145.4,42.151.5.48.151.7,39,157.10. 



9.42,163 

1550 DATA 21.33.169.24.57,169,26, 

1560 RESTORE 1530 

1570 n=i952A 

1580 FOR 1=1 TO 4fl STEP 3 

1590 REÀD p;<,py,Ps:CALL M120,c;!,py,spipsi 

1600 s=65536+sp(ps) 

1610 POKE n.s-INTis/256)*256:P0Kt n+1, INT!s/256i :POKE n 

+2;py:P0KE n+3.P» 

1620 POKE n+4,0:P0KE n+5.0:PQKE n+6.0:PÛKE n+7,.0 

1630 n=n+120 

1640 NEXT i 

1650 CALL ÏA130 

i 660 ' ******************************** 

1670 '* » 

16B0 '* couleur * 

1690 * * 

1700 '******************************** 

1710 BORDER 10:11* 0.9: 1NK 1,24:1* 2. 1: INK 3,6:1». 4.1 

4: INK 5,15 

1720 INK 6,22: INK 7.3: INK 8.0: INK 9.20: INK 10,26:ÏNK 12 

.24:1»: 14.6 



,28,51,169,30,45 >EW 



>LW 
>ZA 
>0F 

m 

>NX 

:>xp 
m 

>¥B 
>V'G 
>RE 
>¥F 
>YG 
>¥H 
>H 
>ÏA 
>HA 



* positionnement bouie blanche 



174C 
1750 * 

1760 IF re=l THEN BOSUB 
score 
1770 BOSUB 3500 



>YD 
>YE 
>YF 
ELSE GOSUB 3130: 'affichage >KD 



'♦*********************************+**++++ 



gestion de la direction du tir 




1040 DATA 15 
40 



, 12.45. 157. 14.36. 163. 15.54. 163, 17. 48. 163. 1 



1780 
1790 
1800 

1810 '* * 

1820 ' ***************************************** 
1B30 n=l 

1840 FOR 1=19520 TO SS78E STEP 1:20 
1850' IF PEEKiilOO THEN ok=i:CALL 4A120, 142, ll!,anbt:CA 
LL Wil20,i42.ili,sp(ni:anbt=5P(n):nbti=(n\2!+l:S0T0 1B9 


1B60 n=n+2 
1870 NEXT i 
1880 BOTO 2960 

1890 FOR 1=0 TO 15:P0KE :i953B+I*32,û:NEXT I 
1900 IF a+=10 THEN BOTO 1930 
1910 PLOT 576+20*COSaat(an)i,215+20*SIN{niat(an; 
AH 576+39*C0S (mat (an) i . 215+39*SIN (mat lani i 
1920 GOTO 1950 
î\ 1930 ;;p=PEEKSW52D+(nbti-l!*Si20i*4+8:vp=PEEKi&9: 
i-li«20i*2-8 

1940 LOCATE 1.1:PRINT aflS; :s3=;!P+20*C0S!«iat (an) ):v3=vp 
+20*SIN (mat (ariii:s4=:(P+120*C0S(fliat lani ):y4=yp+120*SIN(«i 
af(anï):PLOT ;;3.v3,10:BRAW s4,y4:PRINT afO*: 
1950 PLOT 572,20.5:DRAW 572.120:PL0T 576,20:DRAW 576.12 



1960 a=an >FH 

1970 IF INKEt(0)=0 THEN an=an+l:IF an=32 THEN an=0 >RF 

19B0 IF INKEi(2)=0 THEN an=an-i:!t an=-i MB an=3i M 

1990 IF INKEYiliO THEN d=de+l:GOTO 2130: 'gestion effet >HH 

CPCn° 33 -Avril 1988 



.10: DR: 



2C+(nbt 



>YJ 
>YK 
>YB 
>YC 
>YD 

>zc 

,>jB 




HLN d-de-1 : GOTO 2130; qestion effet >HD 

THEN fo=t'o*l:B0TQ 2240 : 'qestion fo .'-KH 

2020 IF a=an THEN GOTO 1970 >UY 

2030 IF a+=10 THEN BOTO 2070 ,UU 

2040 !<l=576*20*CDS{»3fia)!:vl=215+20*SIN(iîia+ia!>:;{2=57b >BD 

+39*C0S(ma+(a!):v2=215+39*SINiiiiafii!i 

2050 K3=576+20*[ÏÏStaatun!r:v3=215+20*SIN(inafian!;:K4=5 >LL 

76+39C0S ta* Un) ; : v4=2l5+39*SIN iniaf Uni S 

2060 GOTO 2090 .;-rjG 

2070 Kl=xc+20*CDSiinat la! ! : ¥l=vp+20*SIN(ma-f Sa/ ; : ;(2=xp+12 HS 

0*C0Sl»af!a)i:v2=¥P+l2u*5INliiiatia! ; 

20S0 K3=KP+20«-CQSiisa-f (an) i : y3=yp+20*SIN(mat (an) i:x4=npt >»R 

120*008 iiaaf (an)): y4=yp+!20*SINiiliaf" (an) i 

2090 LOCATE Ï.1:PRINT âfl$;:CALL iBD19:PL0T xl.vl.af:DR JNB 

m ;<2.y2:PLOT x3,y3, 10:DRA« h4,v4:PRINT afot 

2100 BOTO i960 

2110 '**********************************+****+* 



2120 '* * 

2130 * qestion de l'effet * 

2140 » » 

2 1 50 ***************************************** 

2iq0 FOF i=l TO 8 STEP 4:PL0T 525+de*!2+i. 147.0:DRAWR 

.-lIsfiE'T 

2170 de=d:IF d==0 THEN de=7 

2180 iF de=S THEN de=l 

2190 FOR i=l TO 8 STEP 4:PL0T 525+de*12+i. 147.3:DRA« 

.-12:NE;Ï 

2200 FQP te:HP0=i TO 100:NEXT tefflPO 

2210 SÛIO 1970 

2220 **********+****************************** 



>HG 
>SH 

m 



2240 * gestion de la force du tir * >YA 

2250 * * }1S 

2260 ***************************************** >;'C 

227C fo=! >EC 

2290 SOUND 2. fo*10.1.12 ;Q6 

2290 FOF 1=1 TO 25: NEXT >JB 

2300 PlOT 572.2i.3:DRflWR 0, !0+(fo-i)*10.3:PL0T 57é.2!:D M 

FA* O. ;0+ifo-li*10 

2210 IF INKEY(47i=0 THEN to=fo*l:IF to=ii THEN f"c=i:PLO >8N 

" 5~2.20.5:DRAN 572. 120:PLDT 576,20:DRAW 576.120:60T0 2 

290 E.5E BOTO 2280 

2720 SOUND 5.500.0.5,15 >«j 

2330 IP af=10 THEN LOCATE i.l:PRINT af»::CALL 1BD19:PL ,>VB 

JT a3.y3.tOsBM «4.y4:PRINT atot: 

2740 ***************************************** ;YB 



-360 * 



déplacement boules 



236v ***************************************** 

2:°0 a=an*l:ss=55(a;:vv=vv(a):vH=v:Ua!:GQT0 2400 

2400 L'=SE-4 

2-2; :F KO THEN D=-D«80 

2-2; ON «ET A JOUR 

!-. FW-E pk+2.v'Y:F0KE pk+3,VX:F0KE pk+4,f"o:P0KE pk+5.i 

E : =■ ji E pi+lS.'d 



2440 IF re=i THEN GOSUB 3820 


>W 


2450 POKE W40F.0 


>LE 


2460 GOSUB 3360:CALL &98AD: GOSUB 3430 


m 


2470 bt=PEEK (19880! 


>NB 


2480 POKE W8BC.0 


>LP 


2490 ***************************************** 


>ÏH 


2500 '* * 


>XK 


2510 * calcul des pointe * 


>Vfl 


2520 ■* * 


>VB 


2530 'm************************************** 


>¥C 


2540 IF re=l THEN 60T0 2770 


>UW 


2550 IF btOO THEN GOTO 2590 


>VE 


2560 !F .joueur=0 THEN GOTO 1890 


>YF 


2570 GOSUB 3090 


>XJ 


2580 BOTO 1830 


>NE 


2590 GOSUB 3230 


>XE 


2600 tbt=tbt+bt 


>LQ 


2610 joueuri= ; ioueur'i+tctq: joueur2=joueur2+totd 


m 


2620 IF joueur-OO THEN BOTO 2700 


;>zg 


2630 IF .ioueuti=.joueur2 THEN IF f 1 1=1 THEN joueur= 


1:60T >0N 



2650 ELSE .ioueur=2:G0T0 2650 

2640 IF joueurl>.joueur2 THEN joueur*! ELSE .iaueur=2 

2650 IF +1=1 THEN IF .joueur=l THEN .joueurl=.joueurl-10. E 

LSE joueur2=,ïoueur2-10 

2660 IF +1=1 THEN GOTO 2570 

2670 IF joueur*! «ND totd=0 THEN GOSUB 3100:SOTO 1B30 

2680 IF ioueur=2 AND totq=0 THEN SOSUB 3100:60T0 1B30 

2690 GOSUB 3090: SOTO 1830 

2700 IF tbt=16 THEN If (co=l AND joueur=i) OR nbcbbt<3 

THEN BOTO 2710 ELSE GOTO 2670 

2710 IF î'I=l THEN IF joueur=l THEN .joueurl=.JDuauri-9-nb 

tl ELSE joueur2=ioueur2-9-nbti 

2720 IF tl=l THEN GOTO 2570 

2730 BOTO 2670 

2740 * 

reqles confirmées 



2750 
2760 



m 
m 

>¥F 
>¥G 

M 

GOSUB 3230: GOSUB 3430:G0SUB 3890: tbt=tbt+ >DP 



bt 

2780 IF fi=! THEN .;=i:od=i:pe=l 

2790 tot=totd+totg 

2800 GOSUB 3890 

2810 IF ouv=l THEN SOTO 2870 

2820 ouï=fI3 

2830 IF (11=0 AND btOO! OR InbcbbtC 



nbc 
2840 



:-£■■ 20 3S ■_ 



THEN pe=I:i= 



2860 BOTO 2890 

2870 IF ifi=o AND btOO! OR mbcblOO AND nbcbbt=0!. OR 

(PEEK«940Fi=2 AND nbcbbtOO! THEN BOTO 2890 

2880 !=!;pe=l 

2890 IF .joueur=l THEN .ioueurl=joueurl+tot-pe ELSE -joueu 

r2=joueur2+tot-pe 

2900 IF j=l THEN ,i=0:80SUB 3090 ELSE BOSUB 3100 

2910 IF po=! THEN GOSUB 3710:pb=O:CALL &A120.45. 50,4901 

B: GOSUB 3530 

2920 IF tdt\!5 THEN BOTO 1830 ELSE GOTO 2960 



>YK 
>Pfl 
>YC 
>VY 
>KF 
>BN 

>m 

m 

>PC 
>DP 

>LH 
>DD 

m 

>NB 



JD ► 
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2VoU * 

2940 * FIN DE PARTIE 

2950 ' * 

2960 PLOT 0,o4û.B:TAG:N0VE 48.254:PRINT "BAflE OVER' 

2970 MOVE 4B.160:FR!NT "UNE AUTRE": 

2980 MOVE 4B,128:PRINT " PARTIE? "::TASOFF 

2990 FOR 1=1 TO 50:ftt=INKEY*:NEXT I 

3000 A*=INKEY*: IF A*="0" OR A*="o" TKEN BfJTO 320 

30Î0 IF a$o"N" AND *>V THEN BOTO 3000 

3020 TAS:Î10VE 48,l9U:PRINT " Au «j 

3030 KOVE 48. 12B:PRINT " REVOIR "::TASDFF 

3040 BOTO 3040 

3050 STOP 



>XP 
>DB 



307C 
309C 



,/p d attichaqe du joueur 



joueur=joueur+i:IF joueur=3 THEN |ossif=l 
3100 IF joueur=2 THEN il=B: i2=i ELSE il=l:i2=8 
3110 PLOT 440. 295. il: DRAW 455.295:PL0T 440,29?:DRA« 455 
.297 
3120 PLOT 560,295. i2:DRAI« 575,295:F'L0T 560.297:DRA« 575 

7^7 

3130 jl*=STRt ! joueurl i : j2$=STRt i joueur2i 

3140 j!*=RlSHT*iji$,LENlji*i-i>:j2i=RIBHTt!j2î,LENij2$i 

-l):jH="00"+jl*:j2$="Oû"+j2f: 

3150 IF joueurD=0 THEN jl$=RIBHTi{ji*,3; EL8E j»=*-"+ 

RIBHT*(jlï.2> 

3160 IF ;oueur2>=0 THEN j2$=»IBHTf Sj2*,3) ELSE j2t=*-** 

RISHT*U2*,2! 

3170 PLOT 0,0,3:TAB:MOVE 400.285:PRINT CHft$(143;CHR$(14 

3)CHR$il43i::M0VE 530,285:PR1NT CHR$(!43iCHRiil43iCHR$ï 

143!::TAB0FF 

3180 PRINT CHR*(23ï;CHR*(3i;:PL0T 0V0,2: TAS:tlOvE 400,28 

5:PRINT jl»; : MOVE 530,285: PRINT j2ï: : TAGOFF: PRINT CHR*( 

23S:CHR*iO!: 

3190 RETURN 

3200 : * 

3210 ' * s/p de calcul boule 

3220 ' * 

3230 totd=0: totq=0:bl=0:f 1=0: tl 1=0: i 12=0 

3240 FOR i=l TO bt 

3250 nb=PEEKi49BBIS+ii-l!*2! 

3260 co=P£EKi49BBE+ii-l)*2) 

3270 IF nb=i THEN IF co=l THEN +12=1 ELSE fll=l 

3280 IF nb=nbti THEN f 1=1 

3290 IF coOl THEN totq=totq+nb-i ELSE tQtd=totd+nb-l 

3300 NEXT i 

3310 F'OKE &9SSA,48D:F0KE 4988B.498:F0K£ 49880,0 

3320 RETURN 

3330 * 

3340 * s/p do raz de nbr de choc bande 

3350 * 

3360 FOR 1=0 TÛ 15 

3370 POŒ 49532+1*32,0 

3380 NEXT i 

3390 RETURN 

3400 * 

3410 ' * 5/p de comptaqe de choc bande 



3420 ' * >VB 

3430 nbcbl=0:nbcb2=0:c=0 >T0 

3440 FOR 1=0 TO 15 >LK 

3450 IF nbti=i+l THEN nbcbbt=PEEK!49532+l*32i:B0T0 3480 >ZT 



3460 IF PEEK 119532+1*32! 00 AND c=0 THEN nbcbl=FEEK(495 >AS 

32+1*32! :c=l:OOTO 3480 

3470 nbcb2=nbch2+FEEK (49532+1*32! 

34B0 NEXT i 

3490 RETURN 



3510 ' * déplacement oouie blanche sur la table 



>BC 
>«A 
>FK 
>Yft 
>YB 
>YC 
>0K 
>PJ 



3530 pos;<=45:pasv=50 

3540 t=P=2 

3550 CALL 4BB19:CALL 4Hl20.PQS;<.po5Y,5p(t'5p! ; a+'+icha >PV 

ge boule blanche 

3560 IF INKEï(O)=0 THEN posv=posv+1: IF posy)57 THEN pos >FB 



3570 IF INKEY(2)=0 THEN posv-pdsv-1: Il posy\22 THEN pos /FM 

35S0 IF !NKEY(8i=0 THEN pœa«POSÎC-ii IF HSSS .8 THEN posx ,>û!1 

=8 

3590 IF INKEy il i =0 THEN pos:i=P05s+l:IF posk>82 THEN posOFX 



3600 IF INKEY (9! =0 THEN BOTO 3640 

3610 IF poes/2=INTipos;;/2i THEN fsp=! ELSE tsp=2 

3620 CALL 4BD19:CALL M120,PO5K,Posv,5P(t5P) 

3630 GOTO 3550 

3640 POKE 4952C.posyiP0KE 4952D,pos:< 

3650 IF fsp=l THEN POKE 4952A.0 ELSE POKE 4952A.&1B 

3660 CALL 4A!20.pos:<.posv,5Pitspi 

3670 RETURN 



>ZD 
>RU 
. >NN 
>NC 
>EF 
>RN 
>CN 
>FK 

3680 '* >YK 

3690 * 5/p d'enlèvement boule blanche tombée dans une >ZA 

blouse 

3700 * 

3710 IF co=0 THEN tt=PEEKtt93A6) ELSE tt=PEEK (49384) 

3720 tt=tt-2 

3730 IF co=0 THEN POKE &93A6.U ELSE POKE 49384. tt 

3740 t:<=493O0+tt:ttK=PEEK(tsS:ty=l930i+tt:Uy=PEEK(tv 

3750 IF INT(tK/2!=ts/2 THEN st=49000 ELSE st=4901B 

3760 CALL 4ftl20,tt:;,tty,st 

3770 tbt=tbt-l 

3780 RETURN 

3790 * 

3800 '* s/s de mémorisation position des boules 



>YC 
>VX 
>HK 
>RD 
>DT 
>TE 
>VY 
>BC 
>BB 
>ZB 
>YD 

3810 * >YE 

3820 FOR 1=1 TO 15 >LN 

3830 i»p;{(ii=PEEK(4952D+î*420):mpy(li=PEEK(4952C+i*420i >ZK 
3840 NEXT l >W 

3850 RETURN >FK 

3860 * >YK 

3870 * e/p de vérification de ia position des boules >ZA 
3880 * >ZB 

3890 f 13=0 >LJ 

3900 FOR 1=1 TO 15 >LM 

3910 IF »p;<(i!OPEEK(4952D+i*420! OR mpy!i)<>PEEK(4952C >BA 
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<&*L 






fitmfi THEN fl3=l:RETURN 






3920 «EXT i 




'M. 


3=30 RETURN 




>FJ 


3=40 ' * 




>YJ 


3950 ' * reqles 




m 


3^60 ' * 




>ZA 


3970 MODE 2: INK 0, 13: INK i , 0: BORDER 13 




>EJ 


3980 LOCATE 21,1;PRINT " BILLARD 


AMER 


I C >FU 


MM" 






3990 LOCATE 21, 2: PRINT " 




— >cu 



#1 



4ÔÔ6 WINDOS i. 80. 3, 25 

4010 PRINT " Ce jeu comporte ici deux règles, les r 
egles pour joueurs confirmes et les règles communes u 
sitees dans les 'cafés'." 

4020 PRINT:PRINT " Voyons tout d'abord les premières 
applicables ici:" 

4030 PRINT " Le premier a jouer, pose la boule blanche 

en un point de son choix de la zonede départ. Feront 

de même le joueur qui aura, par la suite la boule 

blaneheen main, lorsqu'elle sera tombée dans une blouse 

-040 F'RINT " A l 'ouverture, le joueur doit, avec la boui '. 
s blanche, frapper une boule numeroteeet l'envoyer dans 
une blouse, du bien envoyer une boule numérotée p 
lus lablanche contre une bande," 

4050 PRINT "S'il réussit, il continue, s'il échoue ce ; 
5t a l'autre joueur, sauf s'il netouche aucune boul 
z numérotée auquel cas il a une pénalité d'un point et 
■"sjoue." 
40è0 PRINT " PENALITE D'UN POINT ": PRINT "Si le joueur: ; 



■fcK 



4070 PRINT " 1 - Ne réussit pas a toucher une boule num >VJ 

erotee sur le coup d'ouverture. 

-080 PRINT " 2 - Envoie la boule blanche dans une blous >TV 

-090 PRINT " 3 - Ne réussit pas, après le coup d'ouvert >$Z 
iifbî u 

-100 PRINT q - Soit a envoyer une boule dans une bl >WD 
:use. " 

4110 PRINT " "- Soit a envoyer une boule numérotée c >RH 
antre une bande. " 

-120 PRINT " - Soit a envoyer la boule blanche cont >CK 
re une bande après lui avoir -fait heurter une 
bille numérotée," 

4130 PRINT " TAPER UNE TOUCHE " >AC 

4140 a$=INKEY*:IF a$=' ; " THEN GOTO 4140 >DT 

-.50 as >ZK 

4160 PRINT:PRINT "Règles de 'café':" >JJ 

4170 PRINT: PRINT "Le joueur doit avec la boule blanche >TA 
. frapper une boule numérotée et l'envoyerdans une blo 
ise, s'il échoue c'est a l'autre joueur." 
1180 PRINT " S'il envoie la boule blanche dans une bl >YC 
ause, le joueur suivant utilise laboule numérotée av 
ec le plus bas numéro comme boule de choc," 
*190 PRINT " A ce jeu. le billard est divise en êm% ca >YM 
■-i, la droite et la gauche, le but dujeu étant de fai 
'-= tomber les boules numérotées de son cote. Le c 



ote sedeterminant en fonction de la première boule qui 
tombe." 
4200 FRÏNT:PRINT " PENALITE " >YE 

4210 PRINT "Si un joueur fait tomber dans une blouse 1 >JT 
a boule de choc, il a une pénalité delO points plus le 
numéro de la boule, par exemple s'il fait tomber la boul 
s jaunequi vaut un point, 'il a une pénalité de 11 point 

4220 PRINT a La dernière boule doit être mise dans u >YD 
ne des blouses de son cote, mais entrais bandes, sino 
n, elle ne compte pas de points." 

4230 LOCATE 1,23:PRINT " TAPER UNE TOUCHE "; >NB 
4240 a*=INKEY*ïIF a$="" THEN G0TQ 4240 >DV 

4250 CLS >AA 

4260 PRINT:PRINT " Au départ ,vous positionnez la boul >CQ 
e blanche a l'aide des touches du curseur. Vous validez 
ensuite la position en appuyant sur [CÛFY]" 



4270 LOCATE 2Û.6:PRINT 
4280 LOCATE 25,S:PRINT "- ";CHR$(240); 
tir sens trigonometrique" 
4290 LOCATE 25,10:PRINT 
tir sens inverse" 
4300 LOCATE 25,12:PRINT "- 1I ;CHR*«243) 



TOUCHES de FONCTIONS 



CHR$(24i!;" - Direction du 



Effet a droi 



>ZH 



;CHR$(242);" - Effet a gauc >SR 



te" 

4310 LOCATE 25,14;PRINT 

he" 

4320 LOCATE 20,16: PRINT "[BARRE ESPACE] Force du tir" >DX 

4330 LOCATE 1,23:PRINT " TAPER UNE TOUCHE "; >NC 

4340 3Ï=INKEY$:IF at="" THEN SQTD 4340 >DX 

4350 CLS m 

4360 PRINT: F'RINT " Celui qui ouvre le jeu est choi >TE 

si au hasard. Les scores des joueurs sontaffiches sur 

la droite de l'écran l'un a cote de l'autre. Au dessus 
du score, un point lumineux jaune indique le joueur qui 

tir." 

4370 PRINT " Avec les premières règles, le joueur qui c >UR 
ommence aura obligatoirement le scorede gauche, par con 
tre avec les règles usitées dans les cafés .c est la p 
remiereboule gui tombe qui désigne le cote." 
4380 PRINT :FRINT " Vous choississez aussi la méthode >YC 
de tir, soit par affichage direct de la gueuede billard 
sur le jeu, ou bien par représentation sur le cote." 
4390 LOCATE 25,20:PRINT "A quelle règle voulez-vous jou >SZ 
er ?":L0CATE 29,22:PRINT "Les règles 'officielles'-)!": 

LOCATE 29,23:PRINT "Les règles de 'café' >2":a$=INK 

EYt 

4400 IF a$="l ,L THEN re=l: joueur=l:GQTQ 4430 >KR 
4410 IF a$="2" THEN re=2: joueur*): GOTO 4430 >KU 
4420 BQTQ 4390 >ND 

4430 FOR i=l T0 50;a$=INKEY$:NEXT >BT 

4440 LOCATE 25.20:PRINT " Méthode de tir ? >TC 

"jLOCATE 29,22:PRINT "Affichage direct >1"ï 

LOCATE 29,23:PRINT "Affichage sur le cote >2":a$=INK 

EY$ 

4450 IF a$= i! l 11 THEN af=10:af l$=CHR$i23î+CHR$(l):afO$=CH >BH 

R$(23)+CHR$(0i:RETORN 

4460 IF a$="2" THEN af=0:af l$="":afO$="":RETURN >PH 

4470 G0TQ 4440 >NEO 
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ar/urA/R£ 

ASTRO 



Sémaphore 



I es amateurs d'astrono- 
mie vont sûrement voir 

_j ivenir ce logiciel avec 

satisfaction : il est certain que 
les calculs nécessaires à la pra- 
tique de ce loisir nocturne sont 
parfois fastidieux et risquent 
de décourager l'apprenti 
astronome. Astro 2001 pro- 
pose aux possesseurs de 6128 
(uniauement) un programme 
simple d'utilisation et qui leur 
permettra de préparer au 
mieux leurs soirées d'observa- 
tion. 

Le mode d'emploi commence 
par un bref rappel des con- 
naissances astronomiques de 
base : description des planè- 
tes du système solaire, quel- 
ques systèmes de coordonnées 
et les problèmes d'heures et de 
calendrier. On trouve ensuite 
la description des fonctions 
offertes par le programme. 
A l'écran, seule une barre de 
menu apparaît afin de permet- 
tre la sélection. L option 
"Aide" contient un résumé des 
possibilités d'Astro 2001. 
Situation, comme son nom l'in- 
dique, vous demandera d'en- 
trer l'heure, la date et les coor- 
données du lieu d'observa- 
tion. L'heure est bien sûr récla- 
mée en Temps Universel. 
Quant aux coordonnées, il 
s'agit de la latitude et de la 
longitude du lieu exprimées en 
degrés et minutes. Si vous 
n'avez pas d'atlas sous la 
main, Astro dispose des coor- 
données de tous les chefs-lieux 
de France ainsi que de celles 
de plus de 1 60 villes à travers 
le monde. 




Les éphémérides concernent 
les positions des différents 
corps célestes (Soleil, Lune et 
planètes) dans le ciel pour une 
date donnée. Les résultats sont 
présentés sous forme de ta- 
bleau contenant les renseigne- 
ments soît pour un astre soit 
pour tous les astres (sur l'im- 
primante). Pour les planètes, 
on trouve par exemple : la 
longitude et la latitude éclipti- 
ques, la distance à la Terre en 
Unités Astronomiques, l'ascen- 
sion droite, la déclinaison, la 
magnitude... 

Le menu "Satellites" donne 
une représentation graphique 
de la position des satellites de 
Jupiter. Cette représentation 
n'est pas tout à fait conforme 
à la réalité mais elle permet de 
se faire une idée de la position 
de Ganymède, de Callisto, 
d'Europe et d'Io. 
L'option la plus importante 
s'intitule "Graphismes" et 
comprend le dessin de l'éclip- 
tique et le dessin de l'horizon. 
L'écliptique vous offre d'un 
coup d'ceil la position des pla- 
nètes par rapport aux constel- 
lations. Ces dernières peuvent 
d'ailleurs être accompagnées 
de leur nom et des traits ima- 
ginaires reliant les étoiles entre 
elles. Les symboles correspon- 
dant aux planètes sont indi- 
qués en bas de l'écran. Le des- 
sin de l'horizon se fait selon les 
quatre directions : Nord, Sud, 
Est, Ouest. Certaines options 
du menu déroulants peuvent 
être activées ou non : visibilité 
des planètes, tracé de l'équa- 
teur céleste et du plan de 
l'écliptique et représentation 
des constellations. 
En prime vous aurez droit à 3 
options : repérage, recherche 
et zoom. La première permet, 
en pointant un repère sur la 
carte, de définir le nom de la 
constellation. La seconde fait 
l'inverse : on choisit un nom 




parmi les abréviations propo- 
sées et les étoiles formant la 
constellation se mettront à cli- 
gnoter. Enfin le zoom permet 
"agrandissement d'une cons- 
tellation et l'affichage des 
objets intéressants à observer 
dans cette zone (amas, nébu- 
leuses, galaxies), ainsi que les 
planètes visibles (si l'option a 
été sélectionnée). 
Imprimante offre soit un ta- 
bleau d'éphémérides, soit une 
hardcopy de l'écran en cours. 
Cette recopie fonctionne avec 
les DMP 2000 et les compati- 



bles EPSON. Un petit défaut 
tout de même : l'écran est 
déformé en hauteur et le résul- 
tat n'est pas toujours très clair. 
Enfin "Outils" contient le cal- 
cul de l'heure sidérale ainsi 
qu'une prévision (rien à voir 
avec Mme Soleil) des éclipses 
lunaires et solaires. 
Astro 2001 est un bon instru- 
ment de travail pour tous ceux 
qui désirent soit compléter 
leurs connaissances soit utiliser 
le logiciel comme outil de tra- 
vail au même titre que la 
lunette ou le télescope© 
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par l'instruction : BDOS (115,ADDR 
(adresses 0)). 



ONTENU DES 
DIFFERENTS TABLEAUX 

CONTROLE (0 à 5). 



Numéro de la fonction GSX 

1 

Nombre de paramètres transmis dans 

EntCoord. 

2 

Nombre de paramètres retournés par 

GSX à l'utilisateur dans LecParam. 

3 

Nombre de paramètres transmis dans 

EntParam. 

4 

Après exécution, contient le nombre de 

coordonnées transmises dans LecCoord 

par GSX. 

5 

Doit être à 1 pour autoriser un tracé 

sinon ??? 

Comme on peut le constater, il existe 
donc trois types de tableaux : le tableau 
Contrôle, qui donne des indications à 
GSX et à l'utilisateur ; les tableaux 
Entrée (EntParam et EntCoord) qui ser- 
vent à transférer des données à GSX et 
les tableaux Lecture (LecParam et Lec- 
Coord) qui eux retournent à l'utilisateur 
des données en provenance de GSX. 

ENTPARAM (0 à 79) 
Contient les paramètres de fonctionne- 
ment (Style de ligne, Couleur de ligne ou 
de texte, Mode de Fonctionnement, Type 
de Hachures...). 

ENTCOORD (Oà 148) 

Contient un maximum de 79 coordon- 
nées transmises par le programme à 
GSX de la façon suivante : 
= X1 ; l=Yl ; 2=X2 ; 3 = Y2 etc. 
En BASIC, ce tableau peut être remplacé 
par un tableau à deux dimensions Ent- 
Coord(79,l). 

LECPARAM (0 à 79) 
et LECCOORD (0 à 148) 

Ces deux tableaux sont semblables à 
EntParam et EntCoord si ce n'est que 
dans un cas l'utilisateur écrit et dans l'au- 
tre il lit les données en provenance de 
GSX. 

Toutes les coordonnées comprises entre 
et 32767 sont autorisées, sans tenir 
compte du périphérique utilisé, ce qui 
peut donner des résultats assez différents 
entre un écran qui est large et bas et une 
feuille imprimée qui est étroite et haute 
mais nous verrons bientôt comment tra- 
cer un cercle rond et non oval. 
Nous sommes maintenant arrivés à la fin 
des généralités et nous pouvons nous 
lancer à "l'assaut" des différentes fonc- 
tions 
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P T I L I T A I R E 

INTRODUCTION 
A G.S.X. 






À. M. LE. 



%J.-M. SCAYA 




Tous les possesseurs 
d'Amstrad CPC 6128 ou 
PCW 8256 ou 8512 ont déjà 
dû entendre parler de G.S.X. 
qui d'après les notices des 
machines ci-dessus est une 
extension graphique implantée 
sur des micros utilisant CPM 
comme système 
d'exploitation. Pour de plus 
amples renseignements, le 
manuel du PCW conseille de 
se tourner vers un ouvrage 
intitulé SOFT 971. 
Les personnes intéressées par 
cet ouvrage et qui sont aussi 
nulles que moi en anglais 
n'ont plus que trois 
solutions : 

— apprendre l'anglais "en 
catastrophe" ; 

— balancer la disquette 
inutile ; 

— archiver cette disquette (au 
cas où...). 

Pour ceux qui ont eu la bonne 
dée de se démunir de la dis- 
quette précitée, il est inutile d'en 
lire plus, leur cas est à jamais irrécupé- 
rable. Pour les autres, ils peuvent enfin 
dire "ouf !". Mais trêve de bavardage, 
entrons dans le vif du sujet. 

U'EST-CE QUE GSX ? 

GSX est une extension graphique du 
système CPM3 (ce qui explique sa pré- 
sence sur CPC 6128 et sur PCW). Les 
graphiques créés par GSX sur une 
machine peuvent être transposés sur une 
autre machine et sur tout périphérique de 
sortie équipant cette machine pourvu que 
les données propres à l'organe de sor- 
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tie considéré soient connues de GSX. Ces 
données se trouvent également sur dis- 
quette et portent l'extension .PRL Sur 
CPC, on trouve entre autres DDMODEO. 
PRL, DDMODE1.PRL, DDMODE2.PRL... 
Alors que sur PCW, le gestionnaire 
d'écran s'appelle DDSCREEN.PRL et 
que l'imprimante associée peut être pilo- 
tée par DDFLXLR8.PRL ou par DDFX- 
HR8.PRL qui correspondent au mode 
haute ou basse résolution. 
Si la portabilité des données est assurée, 
les résultats ne sont pas forcément iden- 
tiques sur un écran et sur une impri- 
mante ; par exemple, il est possible 
d'écrire un texte sur imprimante avec des 
caractères de différentes tailles alors que 
sur écran, une seule taille est disponible. 
GSX étant une extension système n'est 
aucunement liée à un langage de pro- 
grammation type ; il est possible de tra- 
vailler en BASIC sur le PCW ou en Turbo 
Pascal sur CPC ou PCW ou même en 
assembleur. 

GSX peut donc intéresser aussi bien les 
possesseurs de CPC que ceux de PCW, 
puisque le Turbo de base ne contient pas 
d'instructions graphiques tout comme le 
BASIC du PCW. 



CONFIGURATION D'UNE 
DISQUETTE GSX 

Que vous désiriez utiliser GSX en Turbo 
Pascal ou en BASIC ou dans tout_ autre 
langage (existant sur disquette), il vous 
faudra dans tous les cas créer une dis- 
quette contenant tous les fichiers utiles à 
GSX pour un langage donné. Dans la 
mesure du possible, si votre machine est 
équipée de deux lecteurs de disquettes, 
il est intéressant de regrouper sur la dis- 

3uette "A" tous les fichiers utilitaires et 
e mettre en "B" vos propres fichiers de 
données, mais avec un seul lecteur, l'uti- 
lisation de GSX est possible avec un peu 
moins de commodité. 

1 ) Avec un seul lecteur de disquettes, il 
faut copier : 
• GSX. SYS 
Extension GSX 




COMMANDEZ 

Partéléphone. . . ALLO RACHEL 43.57.96.89 
Par courrier . . . , Bon décommande ci-dessous 
minitel 361 5 code AMIE 




Facilité AMIE 4 mensualités sans intérêt 

Crédit GREG, taux 18.24 % à partir de 

1 500 F après acceptation du dossier 

Carte Bleue, inscrivez ie n° et 

la date de validité sur 
le bon de commande ci-dessous 



EEBE3SEIMEEH 






te) Copyright Ï984 Leconofive Sofware LU 
fill risnts reserved 

31597 free bstes 
Chargement do BASIC Nom! 



Cffl-W 1.1 fi Oct 83 Sériai No SM0-1232-6S4321 

Copgrijht (C) 1383 

liSiUlResiarch, Inc. Ail ligbts Reserved 



Kallard-W BASIC vith JctsaN Version 1.29 
(c) Copyright 1984 Locwotive Software Ltd 
AH ripts reserved 

172S5 free bytes 

Ckf geaent do BASIC GSX 



• ASSIGN.SYS 

Assignation des différents périphé- 
riques 

• ??????. PRL 

Fichiers contenant les caractéristiques 
de chaque périphérique (un par fichier). 

• GENGRAF.COM 

Permet de transformer le tangage de 
programmation en langage compati- 
oie GSX. 

• BASIC.COM 

ou TURBO.COM ou... 

2) Avec deux lecteurs, il est bon d'ajou- 
ter : 

• CPM???.EMS 
Programme de démarrage. 

• SUBMIT.SUB 

Qui permettra un lancement automa- 
tique 

• PAPER.COM 

De façon à pouvoir configurer l'impri- 
mante PCW. 

La création d'un fichier PROFILE. SUB, 
qui n'est pas indispensable, assurera le 
lancement automatique du langage ; ce 
n'est pas obligatoire mais c'est tellement 
pratique. 

La copie de ces fichiers peut se faire par 
PIP.COM avec deux lecteurs (ou avec le 
disque "M" sur PCW) ou dans le cas du 
CPC avec FILECOPY.COM sous CPM 
2.2. 

Lorsque tous ces fichiers sont copiés, il 
faut entrer la commande GENGRAF 
BASIC (ou GENGRAF TURBO), ce qui 
aura pour effet d'associer le langage uti- 
lisé à GSX. Une fois l'opération termi- 
née, le lancement du BASIC se fera 



comme avant par BASIC (ou TURBO). 
Si tout s'est bien déroulé, le message de 
bienvenue doit porter l'indication de la 
présence de GSX sinon il faut recommen- 
cer l'opération. Une fois toutes ces mani- 
pulations terminées, il est permis d'effa- 
cer GENGRAF.COM (pas sur l'original 
bien sûr). Vous êtes maintenant en pré- 
sence d'une disquette GSX prête à l'uti- 
lisation (voir figure 1). 



u 



TILISATION DE GSX 

Les commandes GSX se présentent sous 
la forme d'un nombre indiquant la com- 
mande à exécuter suivi d'un ou plusieurs 
paramètres. Seules les principales com- 
mandes seront traitées dans cet article. 



ASSAGE DES PARAMETRES 

Toutes les données sont transférées à 
GSX sous forme de nombres entiers. 
Dans le programme, ces nombres seront 
stockés dans des tableaux à une dimen- 
sion (pour une meilleure compatibilité 
entre BASIC et TURBO). GSX dont le 
code de commande CPM correspond à 
1 15 en décimal demande au moment de 
l'appel où se trouvent les paramètres. 
Cette information est une adresse à pla- 
cer dans le registre DE. Ce registre dou- 
ble contient donc l'adresse d'un bloc de 
dix octets contenant les adresses de 
début des tableaux de paramètres à 
transmettre (c'est fou ce que c'est clair). 
La page 362 du BASIC Mallard nous 
indique la procédure de lancement des 
sous-programmes lancés par CALL, c'est 
le registre BC qui contient les renseigne- 
ments qui nous intéressent ; une simple 
petite routine de sept octets permet de 
remédier au problème et de lancer le 
sous-programme GSX. Cette routine 
apparaît à la ligne 20060 du pro- 
gramme BASIC et se loge à l'adresse 
30. Elle assure le transfert de BC vers DE 
ainsi que le chargement du code 115 
dans le registre C et le lancement de GSX 
par le BDOS à l'adresse 0005. 
En Turbo Pascal, c'est le tableau nommé 
ADRESSES qui contient les cinq adres- 
ses de début des tableaux contenant les 
paramètres nécessaires au fonctionne- 
ment de GSX. L'appel du BDOS se fait 
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C'est reparti. Après avoir 
étudié différentes manières de 
déplacer un seul sprite, nous 
devons maintenant réussir à 
en animer plusieurs, les faire 
se rencontrer et réagir à ces 
rencontres. Ceci va nous 
entraîner sur la pente 
savonneuse de la complexité ! 
Tant qu 'à faire, autant glisser 
jusqu ''en bas en créant un jeu 
d'arcade complet dont 
l 'utilisateur pourra à loisir 
modifier l'ensemble des 
paramètres. 

l'ai évoqué, dans une série 
[précédente, les avantages 
_J(notamment en simplicité et 
rapidité de traitement), d'une table 
de sprites de tailles identiques. Ce 
programme, utilisant ce type de 
table, voici d'abord un petit utilitaire 
nommé "SGTFIXE", qui convertit 
une table TRAVAIL NON RELO- 
GEE en table à intervalles fixes. 
Pour créer cette table de travail, 
vous devrez pour chaque sprite, 
entrer les mêmes hauteur et longueur 
de grille, et sauvegarder avec l'op- 
tion grille complète, même si votre 
dessin ne remplit pas la grille. 
Mode d'emploi : lancer le pro- 
gramme, charger la table à modifier 
et appuyer sur le bouton. Si un sprite 
de dimension différente des autres 
est rencontré, un message d'erreur 
est affiché. Sinon, les octets inutiles 
et la table des adresses sont élimi- 
nés et le programme affiche les nou- 
velles données avant de sauvegar- 
der la nouvelle table avec le suffixe 
"TSF". Cette table ne comportant 
aucun adressage, elle peut être 
rechargée à n'importe quel point de 
la mémoire. (40000 pour notre jeu) . 
Par contre, il ne faudra pas oublier 
de préciser l'adresse de chargement 
voulue (LOAD"TABLE.TSF",Adres- 



se), sinon surprise. Pour l'instant, 
évîtez-vous du souci en utilisant la 
table "TF1CPCMO.TSF" donnée 
sous forme de DATAS. 

BLOODY INVADERS : 
FONCTIONNEMENT DU 
PROGRAMME ^HM^BHD 

Le programme est conçu pour fonc- 
tionner en mode 0, il peut toutefois 
fonctionner en mode 1, moyennant 
quelques retouches. (Voir section 
modifications possibles). 

TABLES DE GESTION POUR 
TABLE DE SPRITES M^^«W 

Il est question d'animer un nombre 
X de sprites. Pour cela, le pro- 
gramme aura besoin de conserver 
en mémoire : 

- La position d'affichage de chaque 
sprite (en adresse écran). 

- Le coin opposé à l'adresse d'affi- 
chage (pour les tests de collision). 

- La direction où doit aller le sprite. 
Il y a donc obligation de créer une 
zone de données spécifique à l'ani- 
mation. Nous pouvons compléter 
cette zone par : 

- L'adresse des octets composant le 
dessin dans la table de sprites. Cela 
nous évitera de manipuler plusieurs 
pointeurs et de recalculer cette 
adresse à chaque affichage. 

- La hauteur et la longueur du sprite. 
Pas vraiment nécessaires quand on 
utilise une table fixe, mais indispen- 
sables avec une table variable. 

- L'état du sprite. Inutilisé par 
BLOODY INVADERS mais très utile 
pour des applications particulières. 
Les données concernant l'adresse de 
visualisation et la position du motif 
dans la table de sprites pourraient 
être données directement sous forme 
de DEFW. Comme j'ai voulu facili- 
ter au maximum l'entrée de modifi- 
cations à partir du BASIC, une table 
contenant les données des sprites à 
utiliser sera utilisée pour inîtîaliser la 
table de gestion. Regardez attenti- 



vement la figure 1, elle résume le 
principe de passages des paramè- 
tres dans la section initialisation. 
Voyez aussi le chapitre signification 
des variables pour plus de détails. 
Le programme utilise un générateur 
de directions aléatoires DIRHAS. Ce 
dernier est basé sur l'état du regis- 
tre R (REFRESH) qui varie en perma- 
nence et dont le contenu est relative- 
ment imprévisible. DIRHAS donne 
une direction de 1 à 8 (dans le sens 
des aiguilles d'une montre, 1 étant 
la verticale). 

La table de gestion se compose 
d'autant de blocs de 10 octets qu'il 
y a de sprites à animer. Le program- 
me doit exploiter chaque bloc un par 
un pour gérer l'animation de cha- 
cune des images. Plutôt que de 
monopoliser un registre IX ou IY, 
pour garder en permanence une 
trace de l'adresse du bloc concerné 
(ceci afin de pouvoir transmettre les 
paramètres résultant des opérations 
en cours), le bloc complet est copié 
dans une zone de 1 octets (SPTA- 
DRES), avec labels, qui permet un 
passage plus direct des paramètres. 
A la fin des opérations sur le sprite 
en cours, la zone SPTADRE5 est 
recopiée à l'emplacement d'origine 
préservé dans ADSPTAFF (TABL- 
PROG & PROGTABL). 

ROUTINE DE DEPLACEMENT 

Elle est similaire à celle décrite dans 
les articles précédents à une excep- 
tion (de taille) près. Elle sera sollici- 
tée par plusieurs routines différentes, 
(les envahisseurs, le test joystick, les 
missiles). Trois routines différentes, 
donc plusieurs points de retour dif- 
férents. De plus les coordonnées de 
directions de 1 à 8 ne peuvent s'ap- 
pliquer directement au test du joys- 
tick. 

La première chose à faire est de con- 
vertir le résultat du test joystick (BIT 
0, 1 , 2, 3 selon direction) en un nom- 
bre de 1 à 8 qui sera conforme au 
système de direction choisi pour les 
envahisseurs. La même routine de 
déplacement pourra alors être utili- 
sée pour tous les sprites. 
Reste le problème des points de 
retour. Pour ceux-ci, nous utiliserons 
les instructions JP (HL) et JP (IX). (LD 
HL,30000 - JP (HL) aura pour effet 
JP 30000). Les routines SAUTDIR 
(joystick) et SAUTDIR2 (autres), cal- 
culent l'adresse de la (plusieurs en 
cas de diagonale) routine de direc- 
tion à appeler (par incrémentation 
du pointeur TABLEDIR). 
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Au retour, HL contient l'adresse de 
la routine sélectionnée. Chacune de 
ces routines se termine par un J P (IX) . 
Il suffit donc de donner l'adresse de 
retour dans IX avant de faire un JP 
'.(HL). 

Ce procédé permet de modifier 
encore le point de retour en cours 
d'exécution, il suffit de modifier la 
valeur de IX pour changer l'adresse 
de retour. 

LA ROUTINE D'AFFICHAGE 

Avec la routine d'affichage et dépla- 
cement sur 3 plans, j'ai mentionné 
qu'un charcutage de ce programme 
conduisait à une routine d'animation 
sur fond monochrome (PAPER 0), in- 
comparablement plus rapide. Elle 
est employée dans ce programme. 
Le déplacement pixel par pixel ren- 
drait le programme plus complexe et 
plus lent. C'est un mode case par 
case qui a été choisi. 

VITESSE RELATIVE DES 

DIFFERENTS SPRITES 

Il est intéressant de pouvoir régler 
séparément la vitesse de chaque 
groupe de sprites. On pourrait être 
tenté d'utiliser STEP X-Y pour ceci. 
Cela fonctionnerait très bien à une 
exception près : l'œil ne verrait pas 
la différence mais le programme si ! 
Supposons que STEP envahisseurs 
soit différent de STEP sprite joystick, 
dans la plupart des positions, il n'y 
aura pas concordance entre les 2. Si 
un missile est tiré à ce moment, sa 
trajectoire sera prise entre deux 
positions STEP envahisseurs. La ren- 
contre ne sera pas reconnue par le 
programme et une vive irritation du 
programmeur s'en suivra. Il est bien 
plus efficace d'inclure la boucle de 
déplacement des sprites à l'intérieur 
d'une autre, qui se répétera tant que 
le paramètre vitesse sera différent 
deO. 

Un usage possible du paramètre 
état sprite serait de contenir une 
donnée indiquant une vitesse de 
déplacement spécifique pour chaque 
sprite. Voir aussi variables. 

TEMPORISATIONS 

Les opérations de calcul et d'affi- 
chage prennent du temps. Aussi, si 
le programme commence avec 20 
envahisseurs et que le but du jeu est 
de les abattre, un envahisseur détruit 
n'est plus affiché. Le programme a 
moins de travail à accomplir et accé- 



Paramétraqe de, tœtabte. de gestion, des sprites (fig -i) 
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1ère progressivement. Cet effet est 
mis à profit dans "SPACE INVA- 
DER". J'ai jugé utile de l'annuler. 
Pour cela, au Meu de sauter directe- 
ment à la suite des opérations 
lorsqu'un envahisseur est reconnu 
comme détruit, le programme est 
détourné vers une boucle de tempo- 
risation. 

Pour le sprite joystick, c'est pareil. 
S'il ne se déplace pas, le program- 
me s'accélère. Donc qu'il y ait eu 
déplacement ou non, on effectue 
quand même l'opération d'affichage 
pour équilibrer le programme. 
Pour les missiles, je n'ai effectué 
aucune compensation pour mettre en 
évidence ce problème. Le remède est 
simple : en EXITJOY, remplacer le 
test et saut conditionnel par un saut 
absolu JP MISSILE ; dans la routine 
MISSILE, après NEXTMIS, changer 
JR Z, MISSUIVA en JR Z, nom de 
votre routine de temporisation et ter- 
miner cette routine par JR MIS- 
SUIVA. Qu'il y ait ou non un missile 
de tiré, la routine missile sera solli- 
citée et si votre temporisation est cor- 
recte, le programme tournera tou- 
jours à vitesse constante. 

TESTS DE RENC ONTRE ET 

DE COLLISION ^^^^^^ 

Les exemples d'animation précé- 
dents incluent un test sur les lignes et 
colonnes écran, interdisant aux spri- 
tes de sortir de l'écran. Bien que très 
primaire, cette routine n'en constitue 
pas moins un test de collision du 
type : rencontre obstacle, donc stop 
tant qu'une nouvelle direction valide 
n'est pas fournie au programme. 
Avant d'aller plus loin, il devient 
nécessaire d'expliquer le principe de 
fonctionnement du jeu : 
- Un nombre NBSPMAX d'envahis- 
seurs apparaît sur l'écran en un 
point prédéfini, puis c'est le tour du 
sprite joystick. 



- Les envahisseurs se déplacent 
d'une position, dans une direction 
donnée par D1RHAS, chacun leur 
tour. Tant que VAUTO est < > 0, 
cette boucle se répète. 

A ce stade, îl faut déjà étudier 2 

cas : 

Un envahisseur veut sortir de 

l'écran. 

2 envahisseurs se rencontrent. 

- Le sprite joystick se déplace (si vous 
le désirez). Donc 2 possibilités de 
plus : 

- Le sprite joystick veut quitter le 
champ de bataille (hors écran). 

- Le sprite joystick touche un envahis- 
seur. 

- Pour sa défense, le sprite joystick 
dipose de missiles. Donc : 

- Le missile se perd hors de l'écran. 

- Le missile touche un envahisseur. 
Vice suprême, de temps à autre les 
envahisseurs posent une mine (qui ne 
se déplace pas). 

Un envahisseur touche une mine. 
Le vaisseau (sprite joystick) touche 
une mine. 
Un missile touche une mine. 

- La moindre des choses est qu'un 
envahisseur touché par un missile, 
prenne la peine d'exploser pour 
saluer votre exploit. D'où k-l-m = g- 
h-i en substituant le mot explosion au 
mot mine. 

Soit 1 3 possibilités de collisions aux- 
quelles viennent s'ajouter ce que l'on 
pourrait appeler les "collisions se- 
condaires". Considérons un missile 
(A) et un envahisseur (B). L'ordina- 
teur déplace ces sprites à tour de 
rôle. Pour nous l'essentiel est que la 
rencontre entre les deux ait lieu. 
Pour le programme, il est vital de 
savoir si c'est (A) aui rencontre (B) 
au cours de son déplacement ou bien 
l'inverse. (D'autant plus que les 
dimensions du missile sont différen- 
tes des dimensions des envahis- 
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Etablissons d'abord le tableau de 
toutes les possibilités : 



2F : Vous ne pouvez aller dans cette 
direction. 



im W^m 






INVADER 


VAISSEAU 


MISSILE 


MINE 


EXPLOSION 


HORS ECRAN 


1 


INVADER 


X 


X 


X 


X 


X 


X 


2 


VAISSEAU 


X 





+ 


X 


X 


X 


3 


MISSILE 


X 


X 


+ 


X 


X 


X 



Les obstacles fixes ne pouvant 
qu'être rencontrés, ne sont représen- 
tés qu'une seule fois. Les collisions 
impossibles sont représentées par un 
0. La possibilité de modifier la vites- 
se relative des sprites rend certaines 
collisions possibles avec VJOY > 
VMISS. Elles sont notées par un 
" + ". 

Le programme doit réagir de la 
manière suivante à ces rencontres : 
1A, 1 D, 1E, IF: L'envahisseur 
change de cap. 
1 B : Vous êtes détruit. 
1C : L'envahisseur est détruit. 
2A, 2C, 2D, 2E : Vous êtes détruit. 



3A : L'envahisseur est détruit. 

3B : Vous êtes détruit. 

3C : Ils s'ignorent (pas de test). 

3D : Le missile détruit une partie de 

la mine. 

3E, 3F : Le missile est perdu. 

Maintenant, prenons les choses dans 

l'ordre. 

REACTIONS AUX SORTIES 

Gros avantage d'avoir une seule 
routine de déplacement pour la tota- 
lité des sprites : on peut y inclure la 
totalité des tests et déterminer la 



validité d'un mouvement par l'état 
du CARRY. Si un déplacement est 
possible, SCF met le carry sinon 
XOR A ou AND A l'annule. 
Donc, au retour des tests, la routine 
appelante peut tester le CARRY et 
réagir en conséquence. 
Pour les sorties d'écran, dans la rou- 
tine AUTOMOVE le CALL NC, 
DIRHAS (exécuter routine si bit 
CARRY = 0), change la direction de 
l'envahisseur. 

Si cette nouvelle direction est inva- 
lide, elle sera remodifîée au pro- 
chain tour de boucle. Il arrive donc 
parfois qu'un envahisseur "piétine" 
un peu si une suite de directions 
impossibles lui est donnée. 
Pour les raisons évoquées dans la 
section "TEMPORISATIONS", le 
sprite joystick est affiché quoiqu'il 
arrive. Pour cette raison, les routines 
de déplacement réinitialisent la posi- 
tion d'origine en cas de mouvement 
hors écran. Donc pas besoin de tes- 
ter le carry dans JOY 0. 
Pour les missiles, le JR NC, RESET- 
MIS en EXITMISS supprime le mis- 
sile. Comme on peut le voir, la réac- 
tion aux sorties d'écran est somme 
toute assez simple. 



PROTEGER VOTRE ORDINATEUR 

TOUTES LES.H0USSES SONT ADAPTÉES A CHAQUE TYPE 
DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS 





HOUSSE MONITEUR M. H. P. 
(MATIÈRE HAUTE PROTECTION) 

PRIX 130F 

□ MONITEUR N.T.L. 
(NOUVELLE TEXTURE LÉGÈRE) 

PRIX 100 F 

POUR AMSTRAD MONOCHROME LJ COULEUR D 
POUR THOMSON MONOCHROME D COULEUR D 
POUR ATARI SM125 . SC122>IL_J 

□ HOUSSE IMPRIMANTE M.P.H. 
(MATIÈRE HAUTE PROTECTION) 

PRIX 190 F 



d HOUSSE IMPRIMANTE N.T.L 
(NOUVELLE TEXTURE LÉGÈRER) 

PRIX 150 F 

INDIQUEZ LE TYPE 

INDIQUEZ VOS DIMENSIONS (L.P.H.) 



POCHETTES DISQUETTES 
POUR 6 DISQUETTES PRIX 
POUR 10 DISQUETTES PRIX 
POUR 32 DISQUETTES PRIX 



116F 
150 F 
:200 F 



LE MATÉRIEL EXISTE EH GRIS l_ ET BEIGE □ 



STAMP DIFFUSION 17 RUE RUSSEIL 44000 NANTES 
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gtfixe 




10 FROSRAfflL Dh RtCALABt S'USE IrtfiLt 

20 ' DE SPRITE5 s INTERVALLES FIXES 

ÏO ' EDITEES AVEC SUREOiE , 

40 ' A L" AFFICHAGE DU 1ER SPR 

nys VISUALISER 

50 ' lES SPR I TES DE lA TABLE 



PRESSER UNE TOUCHE 



MLHHk: 



wMixe.Mn":BGRDER 10s KK 1,26; IN 



90 PRINT:PRINT" PR08RAHNE DE 
TES A INTERVALLES FIXES. ' 



ABLE DE SP 



10 FRIMTîPRINT" PLACER DISQUETTE TABLE DANS Lt LECTEj 

ÎA] 4 PRESSER UNE TOUCHE .":CALL 4BB0s 

20 CATîRRINT' 1 EST-CE LA BONNE DISQUETTE ' m.hr:CG3u 

30 IF â$="N"THEN LDCATE 2. 25: PRINT'CHHfffitR LA DISOuET 
E ET PRESSER UNE TOUCHE":CALL !<BB06:60TO 80 
140 ' 

150 LOCATE 2,25:INPUT"N0H DE LA TABLE ":nti 
160 IF lEN tote>a THEN IF HIDï iRIbHTt «ntï,4; . 1. 1; '., " . 
THEN 150 



-ÔJEAil 



Î,i8: 

r HEN 3 



CHRt(20):CAU 



i.êNTïrlF FEE 



210 IF PEEK (20743) Où THEN PRINT" 

LE TRAVAIL ":CALL #BB06;S0T0 80 

220 ADT=PEEK 120740) <25â*PEEK 120741 

230 LENT=PEEK 1 20754 » +25WPEEK (2075: 

240 

250 LOCATE 7.20:PRIN 

B 330: IF »*="N"THEN 



»ER CETTE TABLE 



• LOCATE 7.23:P 



_DCh7E 



.NT' 1 MU DE :-.--_ 

.NI CHRïQS/^INFUT 1 (Sans exten 

i;,'S T-2ri 270 E.SE ;iTJ=»Tl+ -, TSF 



' -_ -. 

.SE EivD 



-- 



af- i:,i :wHILt aï- :: ' , :aî=UPFLHïaNKtf£i :^ 
I' i 




10 A=ME20:F=ï511ù:l=100:»HIlE A\=F:F0R A=A TO A+15:READ C*:K= 
VAL( ! 'J 1 ,: +CI):S=S+K+o553â*!S+K/32767):IF A=,=F THEN POKE A,l: 
20 NEsT:READ Di;T=VALi"i"-?DS) : IF IOS THEN PRINT CHfi$(7;;'Erre 
ur hqne":L;END ELSE L=L+5:WEMD:SflVE"sgtfixe.bin",b, 20000, 758 

100 DATA OD,6E,00,DD,66,Oi,46,23,5E.23,56,EB,!l,00,CO.CD,0658 
105 DATA 77,6C,D2,Aû,4F,CA,A0.4F.21,60,55,A7,EB,52,20,il,0BF2 
110 DATA ED.53.04,51,E8,CD,B3,BC,D2.A0.4F,CA,AO,4F.AF,iB,l6BF 
115 DATA 02.3E.FF.32.ù7,5i,CD,7A,8C.00,DD.21.60.55.DD.7E.iB99 
120 DATA 0O,32.08.5l.DD,23.DD,7E,00,32,0D,51,DD,23,DD.éE.235A 
125 DATA 00, DD. 23, DD, 66. 00, D0, 23. 22, 09, 51 . 47, 05, DD,23, DD, 2942 
130 DATA 23.10.FA,DD,6E.OO.DD,ôâ.O!.22.0B,51,23,23,23,4E,2E33 
135 DATA 23, 46 , ED, 43. DE, 51. 21, 00, 00, 16, 00, 59, 19. 10, FD, 22. 3203 
140 DATA 10.5i.ll,i0.00.19.22,12.5i.3A.0D.5i.47.05,C5,ED,35B9 
145 DATA 5B,0B.5!.62,6B,23.23,23,23,23,ED,4E,12.5i.ED,53.3AC7 
150 DATA I4.51.C5,ED,B0.E1,ED.4B,10,51.09.22,12.5I,DD.2B.419E 
155 DATA DD.2B. DD.bE, 00. DD,6fi. 01. 22, OB. 51. 23, 23,23, ED. 48,4754 
160 DATA OE. 51. 7E.B9.C2.A9, 4F. 23.78,88, Ci. C2.A9, 4F. 10,BE.4F4d 
165 DATA 3A,08,5i,rD.ûE,BL.3A.0D,5l,47.2A,l4,51,ED.5B.i0.5436 
170 DATA 5I.A7.ED.52.22,14,51,E5,C5.ED.5B,14,51.21.O0,C0,5B2C 
S 7 5 DATA ED.4B.0E.5l.E5.C5, Ih, 7 7. 23, 13. 10, FA, Ci, El. OD. 28, 6215 
180 DATA u5.CD.2o,BL,18,EE.2A.14,51,ED.4B,10.51.09.22.14.6736 
185 DATA 51.CD.0ô.BB.C1.10.Di.ED.4B,0E.51,FD.21.Fl.4F.CD,6F79 
190 DATA AE.4F,26.0v.ô8.LD,BP.4F,FD.2!.30,50.LD.AE,4F.ô9,76AC 
195 DATA CD,BB.4F,FD.2l,4B,5O.CD.AE.4F.2A.10,5ï,CD,BB,4F.7E88 
200 DATA Ei.2B.7v.2B,71.FD,2i,66,50.CD.HE,4F.3A.0D.51.2B,84Ei 
205 DATA 77.E5,26.00,6F,CD,BB.4F.El.FD,2i.Bï,50.CD,AE.4F.BD43 
210 DATA 3A. 08. 51,26. 77. CD, El. 4F, 22, 04. 51. 2A, 12,51.23.23,916F 
215 DATA 23.23.22. 12,51. FD. 21 .9C, 50. CD. AE. 4F. CD, BB. 4F. C9.98FE 
220 DATA CD.7D,BC.3E,EF.32,06.51.C9,Cl,F0,2!.D9,50,FD,7E,A2!6 
225 DATA 00.FE.FF.C8.CD.5A.6B.FD,23,18,F3.C5.06.04.FD,2l,AAD5 
230 DATA EF, 4F, FD.5E, 00, FD, 56. 01, AF,A7,ED, 52,38,03, 3C,18,B1E6 
235 DATA F8. FD, 2B.FD.2B.CD, El. 4F. 19. 10.E7. 7D.CD, El . 4F. Cl , BB76 
240 DATA C9,C6,30.CD,5A,BB,C9,01,00,OA,00,84.00,E8,03.10.C14A 
245 DATA 27, 07, 04, 01, IF, 07. 02. 18, 20,41, 4E, 41, 4C. 59. 53,45. C3EA 
250 DATA 20.20, 20. 44. 45, 20,20.20.20. 4C, 41. 20. 20. 20, 54.41, C6D5 
255 DATA 42.4C.45,20.!6.1F.07,05,4C.4F.4E,47.55,45.55.52,CA7C 
260 DATA 20.44,27,55,4E,20,53,50,52.49,54.45,20.3A.20,FF,CFiA 
265 DATA 1F.07.07.48.41,55,54.45.55.52,20.20,44,27.55.4E.D2B3 
270 DATA 20,53.50,52,49,54.45,20.3A.20.FF.lF.v7,09,4E.4F.DoEF 
275 DATA 4D. 42. 52. 45. 20. 4F, 43. 54, 45. 54. 53, 20. 53. 50, 52. 49, DB65 
280 DATA 54. 45, 20, 3A, 20. FF. IF. 07. 08. 4E. 4F. 40.42,52. 45. 20, DF3B 
285 DATA 44, 45. 20. 53. 50. 52, 49, 54. 45. 53. 20. 20,20, 20, 3M.20.E338 
290 DATA FF,iF,07,:jD,4D,4F,44,45,20.45,43,52,4i.4E.20,50.E7BB 
285 DATA 52,45.5o.55.2v.20.20.2v.2v.3A,20.FF,lF.07.0F.4C.EB44 
300 DATA 4F. 4E. 47. 55. 45.55.52,20. 44. 45, 20. 4C. 41. 20, 54.41. EF74 
305 DATA 42.4C.45,2O,3A,20.1F,07,10,44.4F.4E,54,20,32,30,F2AE 
310 DATA 20. 4F. 43. 54, 45. 54. 55, 20,49. 4E.4B, 20. 28.20, 44.4F. F69B 
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315 DATA 4E. 4E, 45. 45,33, ir, 1E.0F, FF, 07, 04, 01. IF, 04. OC. 18. F9BZ 

320 BATA 20, 54, 41, 49, 4C.4C. 45,53, 20, 44, 45, 20, 53, 50. 52, 4 e , FDE7 
325 DATA 54,45, 53. 20, 44. 49. 46,46,45, 52. 45, 4E.54. 45. 53.20,0242 
330 DATA 21. 20. 1B.FF. 00, Ou, 00,00,00,00, 00,00,00. 00, 00. 00.039A 
335 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00. 00. 00, 00, 00,039Ai 




C^< 



1 Bluuuï iWMVSS 



LHAIBROT-CPC 



19 



10 ilEKJfi: .: iOFEMOUïVîMM HIHEh-lîCLOSEOLIT 

20 KEY 128."SPEED KEY tÛ,2"*B«»'43ï 

30 LQAD :, TFiCPCN0.TSF".40000:L0AD"BL00DY.BIN" 

40 INK 0.0;BORDER 0; INK 1.26 

50 AD=f€EK!37183!+256*PEEKt371S4) 

60 VJOY=AD+ 1 45 : VAUT0=AD+i46 : VM I S=ADi- 1 47 

70 NBSPMAX=ftD+14B:NBSPACTI=AD+14? 

80 SC0REMIN=AD+221:SCOREENV=AD+222 

90 BASNE=AB+i255:ST0CKD!R=ÀD+1272:ST0CKBIR$=HEX*(STQCKD 

IRi 

100 H0DITÏR=35732:PARAMIS=35752 

110 NBVAISS=3:SC0RE=0:B0NUS=1000 

120 

130 MDC'E liPEN 3;PAPER i: INK 3,6 

131 LOCATE 13,3:PRÏNT USINfi" SCORE :##»#### ■'; SCORE 

132 Y=16:«HILE SC0REïB0NUS:B0NUS=BQNUS+1000:NBVAISS=NBV 
ftISS+l:Y=Y+l: LOCATE 15,Y:PRINT" BONUS SHIP ":WEND 

133 LOCATE 13.5;PRINT US!*" VAISSEAUj :»*« ";NBVAISS 

134 IF NBVAISS=0 THEN LOCATE 15,7:PRINT" SAME OVER »s8 
OSUB 1000:BOTO UO 

140 

150 NBENV=INT!RNDC10)*50):IF NBENVtlO OR NBENV>20 THEN 

160 POKE NB3FMAx,NEENV:PÛKE NBSPACTI.NBENV 

170 PEN 3:PAPER kLPCATE 4.B:PR!NT USINE" NOrtBRE D E 

NVAHISSEURS i S* "iMBENV 

180 ' ; 

190 VITESS=INTfRNDllO)*4) 

200 IF VITESS=0 AND RNDS10K0.1 THEN VVAIS=!:VENV=2:B0T : 



240 

210 IF VITESSE THEN 190 >RU 

220 IF VITESS=i OR ViTESS=2 THEN VVAIS=1;VENV=1:B0T0 24 >CL 

230 VVAIS=2:VENV=1 >ph 

240 POKE VJDY.VVAISiPDKE VAUTO,VENV >BL 

250 LOCATE 4,.iO:PRINT USINÉ" VITESSE ENVAHISSEURS : HI >CY 

# KM/S ":VENV*1000 

260 LOCATE 4,11:FRINT USINS" VITESSE VAISSEAU : M >H 
» KH/S ";VVÂ!S*iOOO 

270 ' >RK 

280 VTIR=INT (RND ( 10) *6j : IF VTIR=0 THEN 280 m 

290 IF VTIRtVVAIS AND RRDilOkO.5 THEN VTIR=VVAI5 >UQ 

300 POKE VHIB.VTIR >NE 

310 LOCATE 4. 13:PRINT USINE" VITESSE MISSILES : ### M 

# KH/S ' ! :VTIR*1000 

320 ' . >RF 

330 DÏRTIR=INT(RNB(lôi*4);IF DIRTIR=0 OR DIRTIR>3 THEN >DY 

330 

340 LOCATE 4, iârPRINT" HODE DE TIR : »: >HA 

350 IF DIRTIRC3 THEN POKE K0DITIR.&3C:PÛKE MODITIR+1,0: >YG 

POKE HQDITIR+2.0 

360 IF DIRTIR=1 THEN POKE PARAHIS.M7:P0KE PARfiHIS+1,0: >0T 

PRINT"DIRECTIONNEL TYPE 1" 

370 IF 0IRTIfi=2 THEN POKE PftRA«IS.6:P0KE PARAMÏS+1, 1:PR >MC 

IhfPVERTICAL SEULEMENT " 

380 IF DIRTIR=3 THEN POKE MODITIR, i3A:P0KE MODITIR+i.VA >HQ 

L i "fc"+RIGHT*(5T0CKDIF». 2) i : POKE HODITIR+2, VAL i "i"+LEFT$ 

(ST0CKBIR*.2ii:P0KE PARAMIS,447:P0KE PARAMIS+1 , 0:PRINT" 

DIRECTIONNEL TYPE 2" 

390 ' )TC 

400 FOR 1=0 TO NBENV*3 STEP 3 >«S 

410 INVAB=INTiRND!i0j*15i:IF INVAD=0 OR INVAD714 THEN 4 >BN 

420 POKE AD+I.INVAD ;NB 

430 NEÏT >EC 

440 ' >RJ 

450 PEN i: PAPER 0:LOCATE B.24:PRINT" MISSION ACCEPTEE ? >1J 

lD/N) M 
460 AÎ="":WHILE Aï="";A*=UPPER$iINKEY*):NEND >NK 
470 IF At="D"THEN 490 ;>NA 

480 IF A*="N"TREN LOCATE 4,20:PR1NT USINS'CE REFUS VOUS >ÎH 
COUTE ; #** FO!NTS ,: :NBENV*20:SCORE=SCQRE-NBENV*20:60SU 

B iOOO;B0TO 130 

481 GOTO 460 >ZK 
490 ' )TD 

500 CALL 35000:MHILE INKEYt<>'":UEND:FQR TF-1 TO 1000: N >DA 
EST 

501 >RG 
510 HODE 1:1F PEEKiSAGNE)=l THEN 600 >CT 
520 IF PEEKiSCOREENVÎOO THEN SCORE=SC0RE+(FEEK!SCOREE») >JL 
Vi*10i+PEEKÏSC0REHIN) 

530 NBVAISS=NBVAISS-1:B0T0 130 >AF 

600 SCORE=SCGRE+iPEEK(SCOREENV)*100i+PEEK(SCOREMINitlO >D0 
MO 60T0 130 >YH 

1000 LOCATE B,22:PRINT" ENTER = NOUVELLE MISSION ":PAPE >PV 
R 0:PEN 1:CALL «(BB06:RETURN. 
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çhLI s *C$) 
20 NE*T;REA 

105 BATA 9C 
110 DATA 24 
115 DATA 92 
120 DATA 92 
125 DATA 47 


} D*:T 
ft-,71 


p 
.BC 

b'Z 


H F 

.'A 
. ÎE 


V'+Dï) 
41.9C 


d >i\-r 

]9. H'. 

10= FE 




13 

47 

DD 
r.r-. 

FD 

E5 

DD 


48 

ir 

E5 
92 

m 

FD 
74 

a 

i-H 

-;-,'- 

CC 

Tf 

91 


3r 
42 
^r> 

El 

DD 
■66 
04 

8A 

82 

OD 

riJ" 
CD 


H F 

9C 

A7 
44 

FF/ 
DD 

SA 

Ûh 


BKl 

_.-_0j 

3£ 
ED 

Si 

9C 

Cl 

hD 

4B 

i4 

F7 

■17 

hd 
C3 

91 

91 
PD 


4<: 

14 
1R 

FE 
19 

,-,F 

24 
05 

Mil 

oc 

18 
EC 

-il' 

3A 


v3U7 

iDOE 
2656 


135 DATA 89 
140 DATA 00 
145 DATA BC 
150 DATA 10 

160 DATA 03 
16= DATA 02 


FD.21 

91. C5 

rù. ru 

19.18 
FD.23 

DD.71 

14, 3A 

A6.8F 
18.11 
CD.C6 

8F. 06 

4F. 28 

-.',38 

7Z.il 

19. Id 

6B.SF 
89, 4/ 


m 

FO 


.91 
00 




G 


■"[ 


43EE 

4BF0 

élSF 


170 DATA 96 


0è,ÛD,7Û.ô? 


r n , a 7 


14 

ht 

3E 
FF 

2A 


BD 

nC 

r r, 

ti 
FF 


s9Af: 


175 DATA CD 
180 DATA 3A 
185 DATA 18 
190 DATA 20 
195 DATA 3A 

205 DATA CD 
210 DsTA SA 
215 DATA 90 
220 DATA 69 

230 DATA FE 
235 DATA AF 
240 DATA C6 

250 DATA FE 
255 DATA S' 

265 DATA 15 
270 DATA 2A 
275 DATA 08 


er 

m 

CD 

B2 


C3 
2A 

-r, 

18 

SF 


AE.3F 
E3.39 

6C.91 

7D.90 


2i 

3-j 
-r> 

18 
Do 

Fp 


3fi 

91 

FB 

F""' 
;>4 

B3 


7DD5 

9924 
AOOC 

B74A 
DÂ3F 
FB16 


2B0 DATA DD 


24 


8F 


:;Î65 


290 DATA 5E 

SIS DATA 2o 
320 DATA 88 


2A.D7 

h 5, Es 

BB.FE 
-'2 . r t 




3C 




084C 
1146 
1783 
2065 
289E 

4029 



:,u 011 H ft8.aB.U,o0.SB.CD.3C.8F.E5,CD.AS.8B,Ei.C3,5B,BE.5;lB 
335 DATA 47,00.3A.uB.92,3C.FE.05.L6.32.08,92.21.El,91, 11.565C 
340 DATA OA,00.7E=B 7 ,25y>3, i g , !B,F9 l 70 J 2B,2B.2B,2B,2B.2E,5A62 
345 DATA E5.2A.33.96.78.FE,ui.28.03.FE.05.2B.2E.3S. 11. 18.5F9B 
350 DATA ID, Os. 07. CD. 9F. 90. 30. 51. CD. 91, 90. 10. Fa. 23. 18. 34. 65A5 
353 DnTA 06, 06. CD, 62. 90, FE.4F, 28, 40. 23,10.F6. 18. 1A. 06.04, 6A8A 
360 DATA CD.62.90.B7.2S.33.2B.lv.F7,i6.0D,23.us.0C,CD,89,?03D 
365 DATA 90. 38. 26, CD. 7D, 90, 10.Fo.U6.04. CD, 89.90.38. 1A.CD.771A 
370 DATA 7D.90,10.Fo.EB.E1.73,23,72,23.E5.EB.23,CD.7D.90.7FF! 
375 DATA CD. 7D.90.EB. El, 73.23.72. C9. El. 11.06,00. 19. 36.00. 86AF 
J60 DATA 3A,08.92,B7.C8,3D,32.08.92,C9.3E,FF,32.io,92,3A.8D25 
385 DATA D4.91.47.C5.21.CF.91.06.04.C5. Il.OA.OO, 19. 22. D7. 9313 
390 DATA 9!.CD,A6.BF.3A,39.9è.B7.28.13,4F.06.00.CD.66,8F.99B8 
395 DATA DD.21.6D.8C.E9.30. 12.CD.C6.8F,CD.AE.SF.2A.D7,91,A298 
400 DATA L!.10.D6.C1.10.CD.C3.74,BB.CD,L6,SF.3A.08,92.B7.AB4C 
405 DATA 26.E8.3D,32.0B.92,3A,39.96.AF.32,39.96.CD.25.8F,B19F 
410 DATA 18.D8,3A,D!,91.47.0E.00,2A.33,96.22.2B,96.2h.35.B6B5 
415 DATA 9à.CD.89.90.38,lD,CD.7D.90,E5.3A.3B.96.5F.7E.B7.BEES 
420 DATA 20. 1E.2B, lD.20.FB.2A.33,9è,CD,7D, 90,22,33. 96. El. C518 
425 DATA OC. 10, DE. 79, B7. CE. CB. FF. 32. 2F. 9o.37.22, 35,96. C9, CCB8 
430 DATA 22.17, 92. El'2A,2B.9s.22. 33,96, C3.CÙ,8D.3Â,D1. 91, B3E6 
435 DATA 47,0E,00,2A.35,9o.22.2B.96.2A.33.96,CD.9F,90.3Û.D932 
440 DATA 1D,CD.91.90.E5.3A.3B.96.5F.7E.B7.20,1L,23.1D.20.DF5A 
445 DATA FB.2A,35,96,CD.91,90,22.35.96.0C.El.i0.DE,79.B7.E72D 
450 BATA C8.32.2F,96.37.22.33,9o,C9.22.l7.92.E1.2A,2B.96.ED6E 
455 DATA 22.35. Vâ.C3.Cù. BD. 3A. DO. 91 . 47. ÙE.00.2A. 33.96. 22. F370 
460 DATA 2D.96.2A.35.96,CD.62.90,FE.4F,CA,60,8D,23,E5,3A,FB2D 
465 DATA 3 7 .9o.5F.7E.B7.20.1E.CD.9l,90.1D,20.Fo.2A.33.96.01E0 
470 DATA 23.22.33.9o.E1.0L.10.DD.79.B7.C8,CB,FF.32.30.96,0982 
475 DATA 22. 35. 96. 37. C9. 22. 17. 92. El . 2A. 2D. 96. 22, 33.96.C3. OFBô 
480 DATA C0.8D.3A.D0.9l.47.0E.OO,2A.35,96.22.2D.96.2A.33.152A 
483 DATA 96. CD. 62,90. B7.CA.AB,BD,2B.E5.3A, 37. 96.5F. 7E,B7,1DE3 
490 DATA 20,1C.CD,7D.90,1D,20,F6.2A.35.96.2B.22.35,96,E1.241A 
495 DATA OC, 10. DE, 79, B7.C8.32, 30.96.22.33.96. 37. C9. 22. 17. 2A28 
500 DATA 92.tl.2Ai.2D.96.22.35.96.3A. 16.92. B7. CA.F8. SE, FE. 325C 
505 DATA FF.CA.46.8E.FD.2A,26.96.FD.6E.02.FD.66.03.ED,5B.3AF7 
510 DATA 17.92.3A.37,9o.47.7C.BA.28.07.CD,7D.90,10,F7.ia.414C 
515 DATA ;A,22,19.92.3A,3B,96.4F.7D.BB,CA.F8,8E.30.04.2C4772 
520 DATA OD. 20, F5.2A. 19.92. CD. 7D. 90. 18. E2. 21, 07,91.06, 04. 4DD0 
525 DATA C5. il.OA.OO. 19. E5, 7E. B7.2B. 2E, 2B. 4E. 2B. 46. 2B. 2B.5279 
530 DATA 2B.5e.2B.5E.EB.ED.5B. 17,92, 7C.BA. 28.07. CD. 7D.90.599E 
535 DATA 10. F?, 18. 14,22. 19.92. 7D,BB.ÏA,D3.BE. 2C.0D. 20. F7. 605! 
540 DATA 2A.19.92.CD.7D.90.1B.E8.E1.C1.10.C4.AF.C9.21.1A.6829 
545 DATA 92.3A.D5.9l.47. Il.OA.OO. 19.E5. 23. 23. 23. 23. 23. 23.6CSD 
550 DATA 7E.El.B7.2e.3B.FE.u9.30.34.C5.E5.5E,23.56.EB,ED,74C7 
555 DATA 5B, 17.92. 3A, 24. 96,47, 7CBA, 26,07, CD, 7D, 90. 10.F7.7B4C 

5û5 DATA OD,2û.F6.2A.19.92.CD.7D.90,iS.E3.El,Cl.!0,B6,2A.86DD' 
570 DATA 1 7. 92. 7t. FE, CO, 28. 08. FE, 40, 2B, 04, FE. 30,20. ÛC, 2B. 6D31 
575 DATA 06,03.36.00.23. lu, FB. 21. IE, 92.34. AF.C9, El. Cl. E5.93A2 
580 DATA 5E.23,56,23.23,23,4E.23.46.23.36.B0.E6,CD.2C.8F,98E5 
585 DATA E1.ED.5B. BC. 91.2B. 72. 2B. 73. 18. 17, CD. C6.8F.3E. 80. A0A5 
590 DATA 32.39.9a.DD,21,2ï.8A.CD.25.BF,El,C1.2A.BC.91,22,A81è 
595 DATA 31,96.21.06,91.35,21. IF, 92. 34,21, CF, 91,34. AF.C9.AECD 
600 DATA AF.32.2B.96.2A.26.96,CD.A9.8F,2A,BC.91,22,31,96.B5B7 
605 DATA 3E.80.32.39.96,CD.3F,8A.2i.58.1B.2B.7C,B5,20.FB,BC17 
610 DATA 3A. 39. 96. B7.20. EF. 33, 33. 33. 33.C3.FB. 90. 2A. 33. 96. C2F3 
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615 DATA ED.46.37,96.C5.E5.36.00,23,10,FB.E1.CD,7D.90.C1.CBB2A 


420 DATA 0D.20,Fi.C9.01.0i,00.FE.01,28,lF,FE.09,28.ÏA,FE.DûF8 


625 BATA OS,28.i5.FE,OA.28,iO.FE.02,2a.06,FE.O6.2B.O6,FE.D5EO 


630 DATA O4,2B,01.OC,OC.0C,yC.OC.OC,OL.79.32.39.96.A7,CB.D94D 


635 DATA,ll.DB,21,2D,9i.DD.09.DD.6E,OO,DD,66.Ol,C9.CD,E5.tlOA 


640 DATA 8C.D0,E9,CD.E5.BC,38,û2,DD,E9,CD.7A.8D.DD,E9.LD.EC01 


645 BATA 9A.eC.38.F6,DD,E9.CD.9A.8C.DD,E9,CD,9ft,SC,3B,02.Fû0i 


650 BATA BD.E9, CD. 2E, 80,00, E9,CB,E5.8C.38,F6.DD.E9,2h.D7, 0148 


655 DATA 91, li, 31. %. 18.07, ED.5B.D7. 91, 21. 31, 96.01. 0A.00, 0673 


660 BATA ED,B0.C9,2A,D7,9l,Ol,OA,Où.ù9.22.D7,91.C9.FB,LD,ùtBA 


665 DATA 4B,37.96.2H.3.:.,96.ED.5fc,33.96.C5.B5.4ïï,06.-,',,oEB. iStf'i 


670 OA'A Bu,D!.Cl,O0,29o«,Ej,EE.CD,~D, : O.ti;.El.;9,EE.Io, 1EDC 


675 DATA 2F.?6,B7,2e.33.2H.2B,96.4F.3A.38.96.47.CB.79.LA.25lA 


680 BATA 03,90. CB.B9.3E, 23, 11, 70.90,18. 05. 3E.2B, 11, 91. 90,2A96 


685 DATA 32, 13.90, ED, 53, 18.90, E5.C5, 36.00, 2B. 10, FB, Cl. El. 32ii 


690 DATA 0D.28,05,CB,91.90.i8.EF,3A,30.96.B7.28.33.47.3A.37D3 


695 DATA 37.96,4F.2A.2D,96,CB.7S.28.09.CB.B8.3E,23.11.7D.3DC2 


700 BATA 90, 18,05,3E, 26,11.91. 90,32. 4B.90.EB, 53. 54. 90, E5. 4420 


705 BATA C5. 36,00,23. 10.FB. Cl. El. OD. 28.06, CD. 7D.90. 18. EF.4B07 


710 DATA C9.AF.32.2F, 96.32,30, 96,F3.C9.7L.E5. 05, B6,0B.CB,54Û9 


715 BATA 77.20.FA,C6.0B.67.!1.50.00.A7,ED.52.CB,74.20.F9.5B6E 


720 BATA i9,7D.Dl. El. C9, 78.04,08,67,00, 05, il. 50. CO, M, D1.63E0 


725 DATA C9,3E,FF.BC,C0,3E,7F,BD,C9,7C.D6.08,67,CB.74,CO.6B65 


730 DATA 05,11, B0.3F, 19,01, C9.3£,C0,BC.C0.3E.4F,BD.C9. 05, ,»5;F 


735 DATA 0D.23,10.FB.41.CB.7D.90,10.FB,C9.E5,C5,3A,39,96.7B5E 




745 DATA F5, 79, B7. 28, 10.FE. 09, 30,02.18. 14, 3E, 00,32, C/, 90. 89D4 


750 DATA 0E.09.F1.1B.DE,3E.0C,32,C7,90,0E.01.F1.1S,B4,F!.90B2 


755 DATA CB.07,30.DB.79.32.39.96,Ci.Ei.C9,3E.OÏ. 1B,F6.3C.97CB 


760 DATA 32.28.96,2A,20,92,CD,3F.BB,AF,32,OB.92,32.Ù7,92.9BA6 


745 DATA 32,CF,91,2l,D9.91.0E.04.06.04,23.23,36.00.23, lO.AlBE 


770 DATA FB.23, 23,36. 00. 23.36.00, 23. Où. 20. EL. 21. 18.92. 22. A5B7 


775 DATA 07, 91, AF, 32. 16.92,C9.76,8F,9F,BF,9A.8F.93.8F,8E,AE4D 


780 DATA 8F, B7. BF, 82,8F. 78, 8F. 41.91. 01, Lu. 00. ul.CO. 10.01. 6472 


785 DATA CO, 20,01,10, 30.01, 80,40, 01, Bu. 50. 01. Bu, où, 01, DO. BAo7 


790 BATA 7O,Oi.DO,8O,0l.DO.9o.O6,C0,FO.OB,CO,FO.OB,Cl.OO,ClCB 


795 DATA OB.C1.10.0B,Cl,20,OB.Cl,30.0B,Cl.EO.OB,Cl,Fu.OB.CB02 


800 DATA C2.80,uB, 02.90,00, 00, 00.00. 00, Où.OO.OO, 00, 00, Ou.CAAi 


805 DATA 00. 00, 00, Ou. 00. 00, 00, 00. 00. 00, 00,00, 00. 00, 00, 00. CAAl 


810 DATA 00. uO, 110,00.00,00. 00, 00, uu.OO, 00, 00, 00, 00,00, 00,CAA1 


815 DATA 00. 00, 00. 00, 00, 00. 00, 00, Où, 00. 00, Ou. 00. 00. 00. 00. ÛAA1 


820 DATA 00. OF.DF. 43. 00, 00.00. 00. 00.00. 00. 00,00, 00. 00, 00, CBD2 


825 BATA 10. 11, 12,00,00,00,03.00.01.04.02,01,03. 14, 14, 18.CC53 


830 BATA 92. 01, 92, 00. 00,00, 00. 03,02, 00, 00. 01. 92, uO, 00, 00, CE10 


835 BATA 00,03, 02. 00,00.01. 92. 00, 00,00. 00. 03.02. 00, 00. 01, LEAE 




B45 DATA 00. 40.60, CO.CO.CO.CO, 40, «0,04.02,00.00. 00,00, 00, Bûl7 




855 DATA 00.00.00.00.00.00.00.00.00.00,00.00.00,00.00.00.0=17 


8t „h r 


865 DATA 


870 DhTA ;iO,OO.Ou,.a;.ou.uu.oi,.0".;;u,l:U,„u,.h..Oi,,;,;„,)u,Un,Dji: 


875 DATA s>0,oo, i ,..o,o . o., ,o,oo,i:u.uù,o..,ov.ii.„ <o, ,o,00.i,jli 


880 DATA 00 , 00 . 00 . 00 . uO , 00 . uu . M . 00 . uu . Ou . l a . M . M . H , uu , 05 17 


BBS DATA 00,00, 00,00, 00,00.00.09. 00,00, 00.00, 00,00,00. 00, B51 7 


890 DATA 00,00,00.00. 00. 00. Où, 00, 00.00, 00, 00. 00,00.00,00.8517 



O.uu.U'. 



,00,01 



00,00,00,00, 
00,00,00,00, 
00, 00, 00, 00, 
00,00,00,00 
00.00,00,(10 
00,00,00,00 

t)0,oo,iXJ,(io 

00.00,00,00, 



900 DATA 00. 

905 DATA 00, 

910 DATA 00, 

915 DATA 00. 

920 DATA uu, 

925 DATA 00, 

930 DATA 00. 

935 DATA 00, 

940 DATA 00, 

945 DATA 

950 DATA 

955 DATA 

960 DATA 

965 DATA 

970 DATA 

975 DATA 

980 DATA 

985 DATA 00.00,00,01 

990 DATA 00,00,00.01 

995 DATA 0o,OO, oO„0' 

1000 BATA 00,00,00, 

1005 BATA 00, 00, Où, ! 

1010 DATA 00.00.00. 

1015 DATA 00,00,00. 

1020 DATA 00,00,00. 

1025 DATA 00,00,00, 

1030 BATA 00,00,00, 

1035 BATA 00,00,00. 

1040 DATA 00,00.00. 

1045 BATA 00,00,00, 

1050 DATA 00,00,00, 

1055 DATA 00,00.00. 

1060 DATA 00,, 00, Ou, 

1065 DATA 00,00.00, 

1070 DATA 00,00.00, 

1075 DATA 00,00,00. 

1080 DATA 00.00.00, 

1085 BATA 00,00.00. 

1090 DATA 00.00.00, 

1095 DATA ( 

1100 DATA 00 

1105 DATA 00 

1110 DATA 00 

1115 DATA 00 

1120 DATA 00 

1125 DATA 00 

1130 DATA 00 

1135 DATA 00 

1140 DATA 00 

1145 DATA OC 

1150 DATA OC 

1155 DATA OC 

1160 DATA OC 

1165 DATA Oï 

1170 DATA OC 

1175 BATA OC 



.00,00.00.00.00.00,00,00,00,00,00,00,0517 
,00,00.00,00,00,00,00,00,00,00,00,00,0517 
,00,00,00,00,00,00,00,00,00.00,00,00,0517 
.00,00,00,00,00,00,00,00,00,00,00,00,0517 
,00, 00, 00, 00, 00, OO, 00, 00, 00, 00, 0O,OO,D517 
,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0517 
,00,00,00,00,00,00,00.00.00,00,00,00,0517 
,00,00,00,00,00,00,00.00,00,00,00,00,0517 
,00,00.00.00,00,00,00,00,00,00,00,00,0517 
,00,00. 00, 00, 00, 00, 00, 00, 00, 00,00,00.0517 
,00,00,00,00,00,00,00,00,00,00,00,00,0517 
.00,00,00,00,00,00,00,00,00.00,00,00,0517 
,00, 00, 00. 00. OO. 00, 00, 00, 00, 00, 00, 00, D517 
0. 00, 00, OO. OO, 00, 00, 00,00, 00, 00,00,0517 
0,00,00,00,00,00,00,00,00,00,00,00,0517 



.00,01 



00.00.00,00.00.00.00,00,00,00.00,00.0517 
i, 00,00. où . ùo. 00. 00. ÙO. OO, 00,00,0517 
i, 00. 00. 00. 6 i. Co. 00. 00, 00. 00.00,0517 
,00, 00. OO, OO. 00. 00. oo.uo.OO.OO. 00,00,0517 
.00, OO, OO. Ou, Oo. 00. a, 00,00. 00, 00,00.0517 
:..;»! la;.:. -0 m. "■.•'- .!»',■:•■. O'-l.'ïfi.DSl 7 

0,00,00,00.00.00,00,00.00,00,00,00,00,0517 
0,00,00,00.00,00.00,00.00,00,00,00,00,0517 
0.00.00.00,00,00,00,00,00,00,00,00,00,0517 
0.00.00.00.00.00.00,00,00,00,00,00.00,0517 
0.00, 00. 00. 00. 00. 00, 00, 00, 00, 00, 00, 00, 0517 

o, .- , o U,i,^l,lKl,iAÎ,OO,00,OO,OO,O0,OO,O5i7 

0. .1. il. OO, 00. 00, OO, 00, 00, 00, 00, 00, 00, 0517 
v, 00. Oo. 00, 00, 00, 00, 00, OO, 00, 00,00,00,0517 
'0. OC. 00. 00. 00, 00, 00, 00, OO. 00, 00, 00,00,0517 
'0,00. 00. OO, 00, OO, OO, 00, 00, 00, 00, 00, 00,0517 
<0. OO, 00, 00, 00, 00, 00,00, 00, OO, 00, 00, 00,0517 
'0,oO, OO, 00, 00, OO, OO, 00, OO, OO, 00, OO, 00,0517 
iO , 00 , 00 , 00 , (X) , 00 , 00 ,00,00, 00 , 00 , 00 , 00 , 05 1 7 
10, 00, OO, 00, 00,00, 00, OO, 00, 00, 00, OO, 00, 0517 
;0, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0517 
«3, 00, 00. 00, 00, 00, 00,00, 00, OO, 00, OO, 00,0517 
10, 00, 00. 00, 00, 00, 00, OO, OO, 00. 00, 00, 00, 0517 
10,00,00,00,00,00,00,00,00,00,00.00,00.0517 
10.00.00,00,00,00.00,00.00,00,00,00,00,0517 
lO. 00, 00, OO, 00, 00. 00, 00, 00, 00. 00, 00, 00,0517 
10,00, 00, 00, 00, 00, OO, 00, 00, OO, 00, 00,00,0517 
10, Ou. 00, 00, OO, 00, Où, 00, OO, 00, 00, 00, 00, 5517 
)0,OO,0O, 00, 00, 00, 00. OO, OÙ, 00, 00. 00, 00, 0517 
10,00,00.00,00.00,00,00,00,00,00,00,00,0517 
10, 00, 00. 00, OO, 00. 00, 00. 00, 00, 00, 00.00,0517 
)0, 00. OO. 00. 00, OO, 00, 00. 00, 00, 00, 00,00, D517 
10.OO, 00, 00, 00, 00. 00. 00, 00, 00, 00, OO, 00, D5i7 
iu.OO, 00 ,110, 00, 00, 00, 00, 00, 00, 00, 00, 00,0517 
00. OO, 00, 00, 00, 00, 00, 00, OO, 00, 00, 00, 00. 0517 
00, 00. 00, 00, OO, 00, 00, OO, 00, 00, 00, OO, 00, 051? 
OO, 00. 00. OO.iXi, 1X1,00,00,00, 00, 00, 00, OO, 0517 
00. 00, 00, 00. 00, 00, OO, 00, 00, 00, 00.00.00,051 7 
00.00,00,00,00,00,00,00,00,00,00,00,00,0517 
00,00.00.00,00,00,00,00,00,00,00,00,00,0517 
00,00,00,00,00,00,00,00,00,00,00,00,00,0517 
39 30, 00, 00. 00. 00. 00, 00, 00, 00, 00, 00, 00, D5BÙ1 
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£4/ 



UT/UTA/RE 



SILIPACK 



Esat Software 



>>. ilipack est un ensem- 
> ble de deux program- 

^Smes : Silidrum et Sili- 
tone. Les habitués de la langue 
anglaise auront tout de suite 
compris qu'il s'agit de logiciels 
musicaux concernant respecti- 
vement les percussions (arum : 
tambour) et les "sons" (il faut 
comprendre synthétiseur). Et 
heu, heu... Cet ensemble est 
réservé au 6128 pour cause de 
capacité mémoire. Silidrum se 
présente sous la forme d'un 
tableau à plusieurs colonnes. 
Chaque colonne correspond à 
un instrument : il suffit de 
déplacer la flèche sur une des 
colonnes et de valider la case 
pour obtenir le son de l'instru- 
ment correspondant (il y en a 
13 au total : grosse caisse, 
caisse claire, cymbales, cla- 
quement de mains, etc.). Sur 
une même ligne, vous ne pou- 
vez bien sûr placer plus de 
trois instruments, la limitation 
étant due aux possibilité de 
l'Amstrad en matière sonore. 
Le mode création est mis en 
marche grâce au bandeau de 
menu présent dans la partie 
supérieure de l'écran (Mode). 
Il s'agit du cœur du pro- 



gramme puisque c'est ici que 
vous allez créer vos séquences 
de rythmes, sur 3 ou 4 temps. 
Cette notion de séquences jus- 
tifie une option du menu 
mode : TRANSFERT. En effet, 
chaque rythme peut être numé- 
roté (de à 15) et transféré 
dans l'une quelconque des 16 
séquences [de A à P). On 
trouve également des possibi- 
lités classiques d'édition d'une 
séquence avec transferts, une 
bascule entre les modes 3 et 4 
temps (les temps sont visualisés 
sur la grille par des zones 
bleues alternativement claires 
et foncées. Vous pouvez jouer 
en direct avec l'option manuel 
qui utilise les touches de fonc- 
tion pour rendre les 13 sons 
possibles. 

La sauvegarde des données 
sur disquette peut s'effectuer 
sur 1 rythme, dans ce cas, l'ex- 
tension du nom de fichier est 
. DRM ou bien sur les 16 
rythmes (extension TOT). Le 
générateur BASIC est bien 
utile : les rythmes créés sont 
sauvés sous forme de pro- 
gramme réutilisables à 
souhait- 
Enfin, inspirez-vous de rythmes 





de démonstration inclus dans 
le programme, ils vous donne- 
ront une bonne base de 
départ. 

Maintenant, votre rythme est 
totalement achevé, il est très 
réussi (mais si, mais si !) et vous 
souhaiteriez y superposer une 
mélodie. C'est très simple, il 
surfit de choisir l'optîon Silitone 
et vous vous retrouvez d'un 
coup (ou presque I) avec 
l'écran du logiciel déjà cité 
sous les yeux. 

Silitone emploie également 
des "séquences" pour son 
fonctionnement. C'est-à-dire 
que des séries de notes sont 
enregistrées et peuvent être 
manipulées : ajout, suppres- 
sion et transfert sont des opé- 
rations utilisées également 
avec les traitements de textes. 
Le clavier de Silitone est situé 
tout en bas de l'écran et per- 
met de jouer sur 5 octaves. 
L'enregistrement des notes ne 
se fait pas par l'intermédiaire 
du clavier du CPC, mais grâce 
au joystick, ce qui est tout de 
même moins "naturel". 
Le résultat de vos appuis est 
visualisé sur une "portée" 
numérique constituée de 3 ran- 
gées de lettres (il s'agit ici de 
fa notation anglo-saxonne : C, 
D, E, F, G, A, B pour do, ré, mî, 
fa, sol, la, si). Sous les trois 
rongées de lettres, on trouve 
trois rangées de chiffres. Ceux- 
ci représentent pour chaque 
pas (chaque "colonne") les 
octaves de chaque note (de 



ai). 

Plus bas, on trouve le sélecteur 
de tonalités (10 au choix) et 
tout à côté, le sélecteur d'enve- 
loppe de volume. La sélection 
joue ici pour un pas complet, 
avec ses 3 notes éventuelles et 
non pas sur une note isolée. 
Comme dans Silidrum, il est 
possible de transférer des 
séquences, de modifier le 
tempo et la mesure, ou encore 
de générer un programme 
BASIC. 




Finalement, Silipack est un uti- 
litaire complet réservé aux 
amateurs mais qui, malgré les 
menus déroulants, présente 
des écrans un peu trop "char- 
gés" et une validation à l'aide 
des flèches du curseur ou du 
joystick qui, nuit à la "convivia- 
lité" du programme* 
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ECTEUR 



Que de lecteurs en détresse ! 
Votre courrier nous prouve 
que du débutant au 
spécialiste, il y a fou/ours des 
problèmes qui se posent. 
Maintenant, c'est à vous, 
lecteurs, de répondre : vous 
avez deux semaines pour 
cela. 

Ce mois-ci, la rubrique 
"questions" est plus 
importante que la rubrique 
"réponses", vous 
comprendrez facilement 
pourquoi. 



SERVEUR 
MINITEL 

N'oubliez pas 
36.15 code MHZ 




La fl.A.L. permet un dialogue direct av 
la rédaction. 

Les petites annonces ouvrent la porte a 
bonnes affaires I 



QUESTIONS 



Vincent MATHEY (CRETEIL) 

H Jffoici mon problème . 
MM Je possède un CPC 6128 cou- 
ÏÏF leur. Récemment, j'ai fait l'ac- 
quisition d'un lecteur 5" 1 là double face, 
double densité de marque Toshiba. J'ai 
installé un interrupteur pour la sélection 
des différentes faces et tout marche à 
merveille. 
Maintenant, deux problèmes se posent : 

— Y a-t-il un moyen de gérer les 80 pis- 
tes de mon lecteur par une quelconque 
routine en langage machine ou un logi- 
ciel ou un autre système d'exploitation 
(comme RODOS) ? 

— Mon père possède un compatible 
PC/XT de marque Normerel et j'aurais 
aimé pouvoir transférer des fichiers 
ASCII ou autres du CPC vers le PC (suite 
à un article paru dans CPC). 

l"™ constatation : il faut le DOS + qui 

reconnaît le format CP/M +. 

2 e constatation : le DOS + formate en 

double face pas CP/M +. 

3" constatation : le DOS + ne reconnaît 

pas les disquettes simple face. 

à* constatation : le directory n'est pas 

écrit sur les mêmes secteurs (je n'ai plus 

les adresses précises en tête). 



Envoyez questions et réponses 
à l'adresse ci-dessous : 

Editions SORACOM 
La Haie de Pan - 35170 BRUZ 

N'oubliez pas d'indiquer 

sur l'enveloppe : 
CPC - Forum des lecteurs 





Bernard PINSON (SAINTES) 

/'ai tapé le programme pluriel 
des noms et merci, il tourne à la 
perfection, mais j'ai observé 
que sur toutes les lignes courtes, le véri- 
ficateur donnait des lettres erronées. Est- 
ce que ce phénomène s'est produit chez 
d'autres lecteurs ou est-ce mon anti- 
erreurs ou moi-même qui débloquons ? 

Pierre MARINIER (PARIS) 

Jyant un CPC 464 "Azerty" 
acheté le 1 er janvier 1 987, je me 
trouve confronté à un gros pro- 
blème ; étant un peu bricoleur, je me suis 
vivement intéressé à votre article sur le 
joystick dans le n° 31 page 8. Il y est 
dit, dans le 1" paragraphe, qu'entre le 
commun et les autres fils, il y a + 2,4 V ; 
or, sur le mien, je ne trouve que + 
0,58 V à peine. Pourquoi ? Est-ce une 
défaillance de l'ordinateur ? Je suis très 
embêté car, à cause de cela, mon joys- 
tick (un Switch-Joy) ne fonctionne pas en 
mode répétition. D'autre part, à quoi 
sert le fil 5 nommé "Spare" par le 
manuel. 

Dominique CHAILLOT (MOZAC) 

J'utilise souvent Bankman sur 
mon CPC 6128 et je regrette 
vivement de ne pas avoir quel- 
ques outils de plus que ceux fournis par 
Amstrad. 

Ce que je cherche : 
— Une routine assembleur pour transla- 
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ter (glisser) toute une partie des enregis- 
trements en mémoire virtuelle (pour insé- 
rer par exemple). 

— Une autre routine pour lire un fichier 
ASCII et le charger en mémoire virtuelle 
(fichier déjà ouvert par OPENIN). 

— Une routine pour écrire le contenu de 
la mémoire vive (n enregistrements) dans 
un fichier ASCII déjà ouvert par OPE- 
NOUT. 



Claude ARBOGAST 
(VENDENHEIM) 

/e viens de redécouvrir un de vos 
anciens logiciels : Cherry Paint. 
A son sujet, j'aimerais savoir 
comment réutiliser une image créée dans 
un programme BASIC personnel. Car 
cette image se trouve à une adresse 
(&0100) qui interdit toute utilisation 
directe par un RUN ou LOAD. Comment 
fait-on pour la reloger à une autre 
adresse ? Ou même comment l'utiliser 
avec le Bankman de mon 6128 ? 



Roger HOH 

(COLLONGES S/S SALEVE) 

Possesseur d'un CPC 61 28, ainsi 
que du manuel Soft 158 sur les 
Spécifications Firmware du CPC 
464, il me manque, évidemment, la des- 
cription de la routine dont l'appel se fait 
par le vecteur situé en #BD5B, "KL Fixer 
configuration RAM". 

Stéphane CARRE (WASQUEHAL) 

fn effet, j'ai rencontré un pro- 
blème dans l'un des jeux publiés 
dans votre magazine. Il s'agit 
de "Penetror" dont le listing a été publié 
dans le numéro 25. Voilà de quoi il 
s'agit : à chaque fois que j'ai terminé le 
tableau n° 12 ou juste avant la fin de 
celui-ci, le programme se plante, l'ordi- 
nateur m'indiquant "Memory full in..." 



et ce pour plusieurs lignes différentes. Il 
ne peut pas s'agir d'une erreur lors de 
la programmation du jeu puisque j'utili- 
ser la cassette n° 25 que je vous avais 
commandée. Ce problème serait-il en 
relation avec le type de la machine utili- 
sée ? (Je possède un CPC 464 couleur) . 

Christian POTET 
(CHILLY MAZARIN) 

Possédant la disquette "Scrab- 
ble", quelle est l'astuce qui me 
permettrait de lui enlever les 
mots anglo-saxons et lui remettre des 
mots bien de chez nous ? 



Jean-Pierre FERNANDEZ 
(CABESTANY) 

Je n'arrive pas à sortir de gra- 
phisme avec l'imprimante Atari 
SMM 804. Pour être plus pré- 
cis, j'utilise deux logiciels qui sont AMX 
ART (logiciel de dessin inclus dans le 
package de la souris AMX) et AMX Pa- 
gemaker et il est bien évident que si l'on 
n'arrive pas à sortir son travail sur impri- 
mante, ces deux logiciels perdent beau- 
coup de leur intérêt. 
Ce qui m'étonne, c'est que pour AMX 
ART, la notice indique qu'il faut une 
imprimante Epson ou compatible ou 
Amstrad. 

Pour AMX Pagemaker, la notice donne 
une liste de neuf imprimantes (dans 
laquelle ne se trouve pas ATARI), com- 
patibles Epson acceptant les modes d'im- 
pression graphiques ESC "Z" et ESC 
"L". Or dans le manuel de l'imprimante, 
au chapitre traitement graphique, le 
mode ESC "L" est bien indiqué (mais 
pas ESC "Z"). 

D'autre part, l'imprimante Atari utilisant 
les codes Epson, on me dit partout 

Qu'elle est compatible Epson. Elle 
evrait donc sortir le graphisme produit 
par ces deux logiciels I 



Paul TINSEAU 
(L'HAY LES ROSES) 

Je possède une imprimante Citi- 
zen 120 D et le logiciel "Bank" 
(Power Soft), je ne sais pas par 
quel moyen imprimer uniquement les der- 
niers relevés de banque. Le logiciel en 
question fournit à l'imprimante toutes les 
informations depuis le début, d'où beau- 
coup de papier inutile. 



José CERQUEIRA (NOISIEL) 

fn réponse à un SOS lancé page 
83 du n° 32 de CPC, concer- 
nant l'utilisateur de dBASE II. 
Avant de faire appel à un fichier situé sur 
une disquette non insérée dans le lecteur, 
faire "SET DEFAULT TO B", puis appe- 
ler le fichier en question ; suivre les indi- 
cations apparaissant à l'écran. Dans le 
cas de deux drives, les opérations se font 
sans indications à l'écran. 
Exemple : 

— Disquette 1 : 
Fichel.DBF 
Fiche2.DBF 

— Disquette 2 : 
Fiche3.DBF 
Fiche4.DBF 

La disquette 1 étant dans Drive A : 

USE Fichel.DBF 
SET DEFAULT TO B 
USE Fiche3.DBF 

Cas 1 seul drive. 

Le système va chercher Fiche3.DBF sur 
le drive B. Celui-ci n'existant pas, le 
système va considérer le drive A comme 
étant le drive B et permettre l'échange 
des disquettes. 

Cas de 2 drives. 

Pas de problèmes de manipulation* 
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IBANKMANAGER1 

3 nouvelles instructions pour le Bankmanager du 6128. 
En fouillant un peu, Michel PROST a découvert de nou- 
velles RSX cachées dans le programme BANKMAN.BIN. 
En voici la liste complète et leurs modalités d'utilisation. 

Faire un reset puis lancer BANKMAN. Ensuite "poker" 
en &A348,&56, On dispose maintenant de trois nouvel- 
les commandes (1VIEW IVDU IVDUO). 
[VIEW 

SYNTAXE : lVIEW,n où n prend la valeur ou 1 . 
FONCTION : IVIEW,0 visualise l'espace mémoire &4000 
à &7FFFF. Attention, ce n'est pas l'équivalent de 
call&BC06,&40 car la gestion écran reste en &C000. 
IVIEW,1 visualise l'espace mémoire &C000 à&FFF. On 
remarque que si on effectue une commande mode (0, 1 ,2) 
la page n'est pas effacée. Si on visualise la page et 
que l'on effectue une commande mode, on se retrouve en 

fiage 1, idem si on scrolle la page 1. 
VDU0,n 

SYNTAXE : IVDU,n où n prend la valeur ou 1. 
FONCTION : IVDU,0 passe la gestion écran en &4000. 
Après cette commande, si l'on tape IVIEW,1, on remar- 
que que rien ne s'affiche sur l'écran car il se situe en 
&4000. La commande IVIEW,0 permet la visualisation 
de l'écran. On remarque que l'écran est décalé si l'on 
"poke" en &4000,255 donc faire un mode (0,1,2) afin 
que l'écran se trouve à sa place. La remise en place de 
l'écran peut s'effectuer depuis la page 1 (lVDU,0:mode 
2:IVDU,1) 

SYNTAXE : lVDU0,n où n peut prendre les valeurs 0, 2, 
3, 4, 5. 

FONCTION : permet la sélection des blocs mémoires. 
Pour faire les essais, il faut se trouver en page 1, donc 
taper IVDU,1 :IVIEW,1 . Ensuite, faire les essais suivants : 
Taper IVDU0,2 puis charger un programme binaire en 
&4000 (une image écran par exemple : pensez au 
memory &3FFF). Maintenant, taper IVDU0,0 puis 
IVIEW,0. On constate que l'écran est vide ; maintenant, 
faire lscreencopy,0,2 et la page écran affiche si le modi 
n'est pas le h 
est toujours 

Taper par exemple IVDU0,3 puis poke &4000,255 et 
ensuite lVDU0,4:poke &4000J44. Maintenant, revenir 
en banque 3 (IVDU0,3) puis taper print peek(&4000). 
Revenir en banque 4(lVDU0,4) puis taper print 
peek(&4000). Suite aux résultats, on remarque que l'on 
accède aux différentes banques depuis le BASIC. 
Maintenant, passer en page (après avoir tapé IVDU0,0 
faire IVDU,0), la gestion écran se trouve alors en &4000. 
Entrer par exemple IVDU0,5 et l'on constate que la ges- 
tion écran n'est plus en page 0, ni en page 1 (faire un 
IVIEW,1 pour le constater). On est donc totalement 
"aveugle", pourtant on a bien toujours la main. En effet, 
taper print chr$(7): border 26,0 pour le vérifier. Toujours 
en "aveugle" taper IVDU,1. Maintenant, faire un 
Iscreencopy, 1,5 et la page 5 s'affiche. Donc il est possi- 
ble d'écrire du texte ou du graphisme dans les banques 
à partir du BASIC. 

Si on déplace les pointeurs du BASIC en &4000 (voir CPC 
28 page 94), il est possible d'écrire et de charger du 
BASIC DANS LES BANQUES !!! 

Par prudence pour chaque banque, faire un new ; en effet, 
si le BASIC commence en &4000 et que l'on est dans une 
banque(2,3,4,5) et que l'on demande list, on a souvent 
un "syntax error". Il est donc possible de charger des pro- 
grammes dans les différentes banques depuis le lecteur 
de disquettes. Attention à la taille des programmes. De 



d pyv . 

n'est pas le bon, faire mode(0,l,2) puis IVIEW,0 et l'écran 



i 



plus, il faut charger le programme le plus grand en der- 
nier car il n'y a pas autant de pointeurs BASIC qu'il y a 
de banques. Donc, prudence lors du chargement des pro- 
grammes, attention aussi car les variables ne sont pas 
transportées d'une banque à l'autre. S'il y a reset, les pro- 
grammes restent en mémoire mais les pointeurs sont 
détruits et les programmes ne fonctionnent plus. 
Pour les programmes en langage machine, il semble qu'il 
n'y ait pas trop de problèmes. J'ai fait des essais avec 
des programmes BASIC compilés en &4000 par 
TYPHON, les programmes machine logés dans la 
mémoire écran fonctionnent aussi (EDITEUR DE LAN- 
GAGE MACHINE CPC 18). Contrairement aux program- 
mes BASIC, les programmes binaires fonctionnent après 
reset de la machine (si on recharge Bankman). 
En revanche, il y a des problèmes avec les RSX. Par exem- 
ple, si on initialise des commandes RSX en banque 5, elles 
fonctionnent, mais si l'on change de banque alors tous les 
RSX sont détruits (même les RSX du genre Idisc, Itape, 
lera...). 

Il serait intéressant que chacun de son côté cherche les res- 
trictions, améliorations, applications à ces commandes, car 
il y a certainement des bugs cachés. Il faut noter que les 
commandes Iscreencopy et lscreenswap acceptent le para- 
mètre 0. 

Un truc au passage pour lutter contre le REDO FROM 
START. Il suffit d'ouvrir une fenêtre dont la hauteur est 
de 1 et de faire l'input dans cette fenêtre. Exemple : 

10 window# 1,1,80,24,24 
20 input# 1, numéro 

NOMBRILISME 

11 est intéressant dans un jeu d'avoir la possibilité de con- 
server la meilleure marque et de fixer sur la disquette le 
nom de son auteur au tableau d'honneur des mordus de 
records. Philippe DENJEAN de Maves vous en offre la 
possibilité sur l'excellent Confucius de CPC n° 18. Voici 
les adaptations à apporter au programme. 



3240 
3390 



:P*= 



:N0MREC*=" 



439Ï 
447Ï 



5885 
5B95 
5900 
6000 
6010 
6020 
6025 



RECQRD=0:REC= 

GOSUB 5885 

TR*=CHR* < 22 ) +CHR* ( 1 ) : REC-RECORD : 

GOTO 3540 

IF BOREC THEN REC=SC:IF SORECC1RD 

THEN REC0RD=SC: GOSUB 3390 

PEN1:L0CATE 7,24:PRINT NR*: "000000" : 

IF REC=0 THEN RETURN ELSE LOCATE 

7, 24: PRINT NR*;USING "######"; REC; : 

RETURN 

PRINT CHR*(24> ; : LOCATE 1,25:PEN 3: 

PRINT " DERNIER RECORD: "; : PEN Oi 

PRINT NOMREC*;:FEN 3: PRINT " AVEC";: 

PEN 0: PRINT RECORD; : PEN 3:PRINT 

"PTS"; 

RESTORE 432O:WIND0W 9 , 29 , 6 , 16: CLS: 

WINDOW 10,31 ,7, 19:PAPER 1:CLS:WIND0W 

1 ,40, 1 ,25 

GOSUB 6027 

PRINT CHRÎ124) ; : LQCATE 1,25:PEN 3: 

PRINT "LE RECORD EST TOUJOURS DE";: 

PEN 0:PRINT RECORD; : PRINT "POINTS." 

REM Lecture du dernier record 

OPENIN "RECORD. CON" 

INPUT #9, RECORD, NOMREC* 

CLOSE IN 

REC=RECORD: P*=N0MRECS 

RETURN 

REM Sauvegarde de RECORD 
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*Pierre TACONNET 



+A$) :POKE add+i, A 



6027 IF SC<=REC THEN PEN 3:L0CATE 10,17: 
PRINT "RECORD NON AMELIORE !!"l 
GOTO 6090 

6030 PEN 2:L0CATE 10,19:INPUT 
"TON PRENOM "JP* 

6040 IF P*="" THEN 6030 

6050 NOMREC*=P* 

6055 RECORD=REC 

6060 OPENOUT "RECORD. CON" 

6070 WRITE #9, RECORD, NOMREC* 

6080 CLOSEOUT 

6070 RETURN» 

Notez que les lignes 790, 3240, 3390 et 4300 sont à 
modifier, les autres sont à ajouter. Les détenteurs du 
record pourront faire le coq, tandis que les autres n'au- 
ront qu'une pensée... Devenir "recordman" à la place 
du "recordman" ! 



™ DANS TOUS LES SENS»» 

Et un petit "scrolling" écran huit directions, ça vous dirait ? 
Et ce n'est pas tout, quel que soif le mode d'écran et sur 
les trois CPC ! Au travail ! 



10 add=&a000 
20 FOR.i=0 TO 615 
30 HEAD A$:A=VAL ( "& 
40 NEXT 

140 CALL &a000:CLEAR 
150 DATA cd, 41, aO, fe 
160 DATA fe, 02, f5,cc 
170 DATA ce, cb, aO, fl 
180 DATA fl,fe,05,f5 
190 DATA f5, ce, 3c, al 
200 DATA al,fl,fe,0a, 
210 DATA 67, ca, 00, aO, 
220 DATA 06, 00, 3e, 2f, 
230 DATA cb, eO, 3e, 01, 
240 DATA cb, d8, 3e, 08, 
250 DATA cb.dO, 3e, 02, 
260 DATA cb, c8,3e,00, 
270 DATA cb,cO, 78, c9, 
280 DATA 21,50, cO, 11, 
290 DATA 01, 50, 00, ed, 
300 DATA e5, 11, 50, 00, 
310 DATA de, al, 21, 80, 
320 DATA ff, 11,80, ff., 
330 DATA 00,ed,bO, el, 
340 DATA 00, 19, eb, el, 
350 DATA c3,dc, al, 21, 
360 DATA 54, 5d, lb, la, 
370 DATA 4e,00,ed,b0, 
380 DATA el.cd, 32, a2, 
390 DATA cO, 06,c8,c5, 
400 DATA 13, la,4f,c6, 
410 DATA 79,12, lb, 78, 
420 DATA 10,e3,c9,21, 
430 DATA 00,c0,06,c0, 
440 DATA e5, 23, 23, 01, 
450 DATA 12, 13,23,7e, 
460 DATA cl, 10, e3,c3, 
470 DATA fl, al, 21, 30, 
480 DATA 11,50,00, 19, 
490 DATA 00, ed,bO,el, 
500 DATA 2b, cd,4c,a2, 
510 DATA c3,dc, al, 21, 
520 DATA 00, cO, 06, cO, 
530 DATA 7e, 12,23, 13, 
540 DATA 19, 01, 4e, 00, 
550 DATA eb, cl, 10, e2, 



INPUT 

01, f5 
, a2 , aO 
, fe,08 
, ce, 11 

fl, fe 
f5, ce 
c9, od 
cd, le 
od, le 
cd, le 
cd, le 
cd, le 
21,00 
00, cO 
bO.dl, 
19, dl, 
c7, cd, 
06, cO, 
cd, 4c, 
cl, 10, 

02, cO, 
4f , lb, 
cl, 78, 
cl, 10, 
e5, 54, 
01,4e 
12, el 
00, cO, 
c5,d5 
4e, 00 
12, el, 
de, al, 
ff,06, 
eb, el, 
7e, 12, 
el, 10 
00, cO, 
c5,d5, 
7e, 12, 
ed,bO 
c3,dc 



END 
, ce, 7c 
fl.fe 
f5,co 
al.fl 
09, f 5 
97, al, 
24, bb, 
bb, ca, 
bb, ca, 
bb, ca, 
bb, ca, 
bb, ca, 
cO, cd, 
06, cO, 
eb, cd, 
cl, 10, 
c7,al, 
c5, e5, 
a2,e5, 
eb, 11, 
06, c8, 
la, 47, 
12, 13, 
e3, c9, 
5d, 13, 
00, ed, 
od, 32, 
cd, fl, 
21,50, 
ed,bO, 
od,32, 
21,80, 
cO, c5, 
23,23, 
13,23, 
e2, 11, 
cd, 10, 
21,9e, 
13,21, 
el, cd, 
al, 21, 



, aO, fl 
, 04, f 5 
, ee, aO 
, fe, 06 
, ce, 6b 
fl.cb 
b7,c0 
52, aO 
5e, aO 
66, aO 
70, aO 
7a, aO 
c7,al 
c5,d5 
32, a2 
eb, c3 
21,30 
01,50 
11^50 
00, oO 
c5, e5 
o5,01 

79, 12 
21, 4d 
la, 47 
b8,cl 
a2,cl 
al, 11 

00, 19 
el,7e 
a2, eb 
c7, cd 
e5, e5 

01, 4e 
7e, 12 
00, cO 
a2, 11 
00, 19 
4e, 00 
32, a2 

80, c7 



560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 
760 DATA 



a2 
50 
00 
el 
c3 
01 
cl 
d5, 
57, 
o5, 
7e, 
84 
08, 
23, 
bO, 
7c, 
67, 
eO, 
e6, 
d6, 
c6, 



30, ff 
, 19, eb 
,bO,dl, 
4c, a2, 
al, 11, 
00, ed, 
fl,c9, 
50,00, 
10, fl, 
23,23, 
13,23, 
cl, 10, 
e5,01, 
12, 13, 
3e, 08, 
08,67. 
c6,50, 
d6,08, 
fe, 38, 
6f,d0, 
67, c9, 



, 06, cO 
,el,d5 
,7e, 12 
,cl, 10 
. 00, a3 
. bO, el 
,21,00 
ed, bO, 
c9, 11, 
01,4e, 
7e, 12, 
e7,c9, 
4e, 00, 
el, e5, 
84,67, 
e6,38, 
6f,d0, 
67, c9, 
cO, 7c, 
7c, 25, 
00,00, 



c5, e5 
, 13, 13 

23, 13 
,el, 11 
,06,08 
, 3e, 08 
,»3,06 
dl,3e 
00, a3 
00, ed 
13,2b 
11,00 
09,7e 
01,4e 
cl, 10 
cO, 7c 
24,7c 
7c, d6 
c6,40 
e6,07 
00,00 



Les possesseurs de 464 remplaceront le CLEAR INPUT 
par un CALL &FJB03. Ce programme utilise la RAM entre 
&a300 et &a57f. Vous le devez à LU U-THO Tarn-Hercule 
de Sevigny le Temple. 

"DESASTRE DES ASTRES "^ 

François LACHAT de Beuvrequen a apprécié comme il se 
doit le très beau programme Astronomie paru dans CPC 
n° 20, mais émet des doutes sur la valeur 0.005 en ligne 
390 qu'il trouve beaucoup trop forte. Ce terme est celui 
qui permet de rester au jour courant à 23h59. La valeur 
à prendre doit donc être, dans le cas d'un calcul de N 
à la minute près, inférieure à 1/24 * 60, soit environ 
0.0006, la valeur 0.0006444 est celle d'une minute expri- 
mée en fraction de jour. La valeur 0.005 vous fera chan- 
ger de jour vers 23h53, ce qui est astronomiquement inac- 
ceptable. A vos montres et à vos claviers ! 



■■ IDEM ^«»— 

Pour les astronomes du modèle "poil dans la main", ce 
petit truc de Dominique LALLIER de Montmagny qui leur 
évitera de saisir la quantité impressionnante de données 
concernant les 365 villes d'où l'on peut faire des obser- 
vations avec Astronomie Planétaire. 
En modifiant : 

4040 MODE 2:IC = 0:RESTORE 5590: 

FOR 1=1 TO 1:IC=IC+1:READ 

BlS,LON,LAT 
4170 FOR 1=1 TO 1:READ BI$,LON,LAT 
Il vous suffit de copier en ligne 5590 le seul nom de votre 
ville avec ses codes. Bonjour les fainéants ! 

— "^^ ANTI-ERREURS—' 

Un lecteur dislexique, qui ne trouvait pas une erreur dans 
une liste saisie par lui dans CPC (vous êtes très nombreux 
dans ce cas), cette erreur étant l'inversion d'un nombre 
dans GOTO 1470 au lieu de GOTO 1740 (pensez-y I), 
nous adresse le résultat de ses réflexions pour limiter les 
risques d'erreur de saisie qui sont grands, comme chacun 
a pu l'apprendre à ses dépens. 

Les programmes de CPC, s'est dit ce lecteur, sont publiés 
en colonnes alors que nous les saisissons sur 80 colonnes. 
N'y aurait-t-il pas amélioration de la saisie et limitation 
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des erreurs si l'on saisissait les listes dans le format du 
papier ? Aussi a-t-il mis en œuvre cette simulation : 

5 MODE 2 

10 INK0,13:INK 1,0:BORDER 3 
20 WINDOW 1,55,1,25 
25 WIN DOW #1,56,80,1,25 
30 PAPER #1,1:CLS 1 

Vous pouvez modifier les couleurs à votre gré. Testez ce 
truc et tenez-nous au courant. Merci, Serge BREUZIN de 
Nogent sur Vernisson. Qui dressera la liste des erreurs 
de saisie, en n'oubliant pas les plus vicieuses qui sont les 
meilleures ? 



3090 NEXT L 

3100RETURN „ „ 4 

3200RCL$ = COPYCHRS(#2)JRCLS = TRCLS + RCLS: 

3250 RCL$ = COPYCHRS (#3)JRCL$ = TRCL$ + RCL$: 
RETURN 

Il vous suffit, nous dit Renaud ANDRIEU de Bamako, 
d'appuyer sur la touche COPY lorsque le programme est 
en attente et l'imprimante "on line" pour obtenir une copie 
imprimée du secteur sur lequel on travaille. Les chirurgiens 
octeticiens seront, nous en sommes certains, ravis de ce 
"plus". Qu'ils n'oublient pas toutefois que ce truc con- 
cerne les seuls 664 et 6128. 



ISECTORY + PLUS! 

Une amélioration à l'excellent SECTORY + publié dans 
CPC HS n° 3. 
Modifiez : 

200X$ = INKEY$:LOCATE # 1,45,1 :PRINT #1, 
CHRS(247);:LOCATE # 1,45,1:PRINT il, 
" ":1F X$ = " "THEN 200 ELSE IF 
INKEY(9) = THEN GOSUB 3000:GOTO 200 

Et créez : 

3030 FOR a-1 TO 31:LOCATE #2,CL,2: 

GOSUB 3200:NEXTCL 
3040 PRINT #8,TRCL$:TRCL$ = " ":RCL$ = " " 
3050 FOR L = 2 TO 17 
3060 FORCL=l TO 76 

3070 LOCATE #3,CL,L:GOSUB 3250:NEXT CL 
3080 PRINT #8,TRCL$:TRCL$ = " ":RCL$ = " " 



PIP, PIP, PIP.. 

"Piper" un fichier avec PIP.COM sous CP/M + et une 
seule unité de disque, c'est pas possible ? Mais si ! Il suf- 
fit de simuler la seconde unité. 
Voici la méthode employée par N. Kieffer de Benfeld : 

— Lancer CP/M + 

— Activer PIP.COM et placer la disquette contenant le 
fichier à copier. 

— Entrer B:=A:nomfich.ext, et le micro lit le fichier puis 
déclare l'unité A comme étant l'unité B. On introduit alors 
la disquette cible, et la copie s'exécute. 

Pour effectuer une seconde copie, il suffit d'ôter I la dis- 
quette cible, de replacer la disquette d'origine, d'entrer 
l'instruction A: = B:nomfich.ext, et l'opération s'exécute à 
nouveau avec inversion des unités due à la simulation I 



\ïmEz; : ^«p** 



THERMOSTYL 



A. S. S. Software 




Fn exclusivité pour 
CPC, voici le tout der- 
ggjnier produit d'A.S.S. 
Software : le Thermostyl. Cet 
appareil simple d'emploi et 
d'un design à toute épreuve 
fonctionne sur les ordinateurs 
de la gamme CPC. Pour cela, 
il faut brancher l'interface à 
l'arrière (bien sûr) du clavier 
sur le port "expansion". 



Thermostyl est muni à sa poin- 
te d'un capteur de chaleur très 
sensible. Le corps de l'appa- 
reil, en métal anodisé, semble 
très solide. A l'autre extrémité, 
le cordon relie le thermomètre 
et l'ir\terface. En effet, Ther- 
mostyl est le premier thermo- 
mètre médical électronique 
assisté par ordinateur. Le logi- 
ciel qui accompagne la partie 




électronique comprend un pro- 
gramme de lecture en direct. 
Rassurez-vous, le constructeur 
a prévu un câble assez long 

fiour que vous puissiez à la 
ois étalonner le thermomètre 
et regarder le résultat à 
l'écran. Vous pouvez donc 
observer les variations à 
l'écran de votre température 
(le capteur est très sensible, je 
vous le rappelle). Lorsqu'un 
équilibre est atteint, pressez la 
touche "Q" et l'ordinateur 
enregistrera la température 
instantanément. 
L'autre partie du logiciel per- 
met d'enregistrer les données 
et de se constituer un fichier de 
températures au fil des mois. 
Je dois dire que la représen- 
tation graphique de la tempé- 
rature est particulièrement 
bien rendue : les courbes mul- 
1 ticolores (une couleur par per- 
sonne) sont très éloquentes. 



D'ailleurs, ce produit a été 
testé en milieu médical et a 
donné toute satisfaction. Le 
professeur Scateau en témoi- 
gne : "Au départ, l'introduc- 
tion de cet appareil a été dif- 
ficile étant donné le peu d'or- 
dinateurs CPC que nous pos- 
sédions. Mais aujourd'hui, 
Thermostyl est entré dans les 
mœurs et prendre sa tempéra- 
ture devient un vrai plaisir 
pour les malades comme pour 
notre personnel." 
Comme vous le constaterez 
par vous-même, l'ensemble 
Thermostyl est très simple 
d'emploi et surtout à la portée 
de toutes les bourses (son prix 
est de 200 F TTC). Gageons 
qu'A. 5. S. Software fera un 
tabac avec cet appareil abso- 
lument inédit. 

Thermostyl, une interface et un 
logiciel qui devraient rester 
dans les annales^M 
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BPUCAT/F 

LES VOLEURS DE TEMPS 



Carraz Editions 



Il existe un domaine où 
les petits et les grands 
(qui savent garder une 
âme d'enfant) sont tou- 
jours éblouis : c'est celui de la 
magie. Alors, nous vous pro- 
posons de vous laisser guider 
dans l'histoire que nous allons 
vous raconter : il s'agit des 
mésaventures d'Abracada- 
bra. 

Abracadabra est un petit ma- 
gicien tout de bleu vêtu. Il 
habite dans une maison qui se 
trouve au milieu de la forêt et 
il a, sur cette terre, une énorme 
responsabilité ! En effet, il a 
été désigné comme étant le 
gardien des éléments du 
temps ; c'est pourquoi il par- 
tage sa maison avec la pluie, 
le vent, la neige, le petit soleil 
de printemps, le grand soleil 
d'été, le nuage blanc, le 
nuage gris et la foudre. Seu- 
lement, cette mission de gar- 
dien n'empêche pas Abraca- 
dabra d'aller faire des prome- 
nades dans la forêt, et c'est un 
tort, car un jour, profitant de 
son absence, sa maison est 
visitée et six des éléments for- 
mant le temps sont volés. 
Lorsqu'Abracadabra décou- 
vre cette catastrophe à son 
retour, il ne sait pas très bien 
ce qu'il va pouvoir faire pour 
réparer cette négligence car il 




y a eu faute de sa part et c'est 
donc à lui de remettre les cho- 
ses en place. Ce n'est déjà pas 
une tâche facile en soi mais 
quand, en plus, il apprend 
qu'il va devoir tout récupérer 
en une seule nuit, il est proche 
du désespoir ! 

Malgré tout, il a auand même 
une petite idée des endroits 
qu'il va devoir visiter pour 
espérer retrouver un des élé- 
ments du temps. Aussi, Abra- 
cadabra commence ses recher- 
ches par la maison du voleur ; 
ce qui est logique peut-être, 
mais se révèle infructueux. 
Notre héros, qui a plus d'un 
tour dans son sac, se dirige 
alors chez la sorcière. Tout est 




parfaitement calme et un sim- 
ple coup d'ceil circulaire per- 
met à Abracadabra de repé- 
rer le grand soleil d'été, en 
voilà au moins un de sauvé ! 
Seulement, il ne faut pas s'at- 
tarder dans ces lieux car la 
nuit avance à grands pas... Le 
petit magicien est alors obligé 
de prendre ses jambes à son 
cou et de rendre visite discrè- 
tement aux cinq autres sus- 
pects. Ce petit marathon va lui 
permettre de retrouver le vent 
chez l'araignée, la neige chez 
le robot, le nuage blanc chez 
le gnome, le nuage gris chez 
le hibou et le petit soleil de 
printemps chez le fantôme. 
Ouf ! Il était temps car le jour 
commence à poindre et c'est le 
moment de l'épilogue. Heu- 
reusement, chaque élément de 
temps ayant repris sa place 
respective, on peut voir 
"éclore" sans problème cha- 
que saison avec ses propres 
caractéristiques : le nuage gris 
et le vent pour l'automne, le 
nuage blanc et la neige pour 
l'hiver, le petit soleil et la pluie 
pour le printemps et, enfin, le 
grand soleil et fa foudre pour 
Tété. 

Avec les voleurs de temps, 
vous allez découvrir un éduca- 
tif entièrement graphique per- 
mettant à l'enfant de faire un 



travail de visualisation de for- 
mes ou dessins ainsi qu'un tra- 
vail de mémorisation. De plus, 
chaque enfant, de la mater- 
nelle au CE, peut trouver un 
intérêt à ce logiciel car il y a 
trois niveaux de difficulté. Pour 
les plus petits, comme il est 
parfois difficile de repérer un 
élément du temps, il suffit 
d'appuyer sur la barre d'es- 
pacement pour le voir cligno- 
ter à l'écran. Ensuite, pour les 
moyens, chaque maison est vi- 
sitée par Abracadabra en 
firésence du propriétaire qu'il 
aut neutraliser avant de pou- 
voir récupérer l'objet repéré. 
Et enfin, pour les plus grands, 
non seulement le propriétaire 
est présent mais, en plus, il 
possède lui aussi des pouvoirs 
magiques ce qui oblige l'en- 
fant à être très rapide, en con- 
clusion, nous pouvons dire que 
ce nouveau produit de Carraz 
Editions est dans la lignée des 
précédents avec un graphisme 
de qualité et des couleurs 
agréables ; de plus, il y a un 
véritable intérêt pédagogique 
qui devrait satisfaire aussi bien 
les parents que les enseignants. 
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BA/VC PESSA/ 



'n/ i 
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A LA 

DECOUVERTE 
DE L'HOMME 



Coktel Vision 




lans la catégorie bio- 
Jlogie et physiologie 
/humaine, ce logiciel 
regroupe des points impor- 
tants du programme de scien- 
ces naturelles des classes de 4 e 
et 3 e . Afin d'avoir une décou- 
verte de l'homme structurée, le 
programme propose à l'élève 
l'étude de quatre parties dis- 
tinctes. 

Tout d'abord, l'homme décou- 
vre le milieu en apprenant tout 
ce qui constitue l'activité 
motrice avec description des 
os et des muscles ; la théorie 
est d'ailleurs illustrée par une 
animation graphique du bras. 
Vient ensuite tout ce qui com- 
pose l'activité sensorielle avec 
l'appréhension des cinq sens et 
l'étude plus approfondie de 



l'un d'entre eux, la vue. Il est 
bien sûr indispensable de clô- 
turer cette partie par l'étude 
du coordinateur de cette acti- 
vité qui n'est autre que le cer- 
veau. L'enchaînement tout à 
fait logique nous entraîne 
alors à l'étude de l'activité 
cérébrale avec la constitution 
du système nerveux et le prin- 
cipe des réflexes. 
A cet instant, l'élève est alors 
prêt pour le second paragra- 
phe permettant de découvrir le 
système de la transmission de 
la vie ; ainsi, après avoir pré- 
senté les organes génitaux fé- 
minins et masculins, le phéno- 
mène de la fécondation est ex- 
pliqué. Pour terminer cette 
partie du logiciel, vous pouvez 
voir à l'écran deux animations 
graphiques : la première pré- 




sente l'évolution et la position 
du bébé dans le ventre de sa 
mère tandis que la seconde 
propose l'accouchement. 
Il reste encore deux secteurs 
importants à découvrir ; on 
peut commencer par l'échange 
avec le milieu qui comprend 
aussi bien l'alimentation et la 
digestion (tout en soulignant 
l'importance d'un menu équU 
libre), que le processus de la 
respiration, celui de la circula- 
tion sanguine et, pour termi- 
ner, l'activité réngle qui est 
fondamentale. Arrivé à ce sta- 
de, il reste un dernier domaine 
à explorer : celui qui menace 
en permanence l'homme et 
contre lequel celui-ci doit 
absolument assurer sa défen- 
se. Il s'agit bien sûr de toutes 
les attaques menées par les mi- 
crobes et les bactéries ainsi 
que les moyens dont dispose 
l'homme pour assurer sa 
défense anti microbienne. 
Connaissant alors tout (ou 
presque tout) ce qui compose 
le corps humain et ses systèmes 
de défense, il est proposé au 
jeune, en guise de conclusion, 
de faire un test pour voir s'il 
est en forme et, surtout, s'il suit 
de bonnes règles d'hygiène ! 
Voici donc un tour d'horizon 
complet des activités propo- 
sées par ce logiciel ; dans l'en- 
semble, les notions énoncées 
sont claires et bien illustrées 
par des dessins et s'il persiste 
un phénomène de incompré- 



hension, l'élève peut toujours 
faire appel à un dictionnaire 
donnant une définition pour 
chaque terme un peu plus 
scientifique ou spécifique. Par 




ailleurs, il ne faut pas oublier 
que la notion d'étude est tou- 
jours présente puisque des 
questions accompagnent cha 
que paragraphe et que, sui 
vant la justesse des réponses, 
le jeune reçoit une note sur 20 
Malgré tout, il ne faut pas s'at 
tendre à trouver un cours 
approndi, mais des notions de 
base qui doivent être absolu- 
ment connues» 
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TOUT SUR LES FICHIERS 




B. BESSE 



Recherche dichotomique 



ette méthode ne s'emploie pratiquement jamais 
sur disque, pour des raisons que notre stage a 
la cuisine nous fait pressentir (nous reviendrons 

sur ces raisons) mais très fréquemment sur ces fichiers 

en mémoire que sont les tables. 

Nous savons, comme Jean, que cette recherche exige 

que la table ou le fichier soit trié. Par exemple : 



(') 


(2) 


(3) 


(4) 


(5) 


(6) 


(7) 


23 


45 


62 


92 


321 


321 


634 



BRUNO OHARŒS JA03UES PAUL ROBERT ROBERT ViCÎOR 

Notons que chaque exemple contient un doublon 
(321/321 et ROBERT/ROBERT). 

Rappelons que seuls les INDICATIFS ne connaissent 
pas le "doublonnage". Ainsi : 

- 2 50 1 1 35 809 1 16 ne correspond qu'à une seule 
personne. 

- FBLPP ne correspond qu'à un seul aéronef. 

- 3 ne correspond qu'au mois de mars. 

Bien entendu, les doublons peuvent être des "triplons" 
ou des "multiplons" par exemple dans le cas des MAR- 
TIN de l'annuaire du téléphone (de PARIS notamment}. 
La dichotomie consiste, nous le savons, à regarder au 
"milieu" et, en cas d'échec, à éliminer de l'ensemble 
à prospecter la moitié défavorable. 
Dans la liste de prénoms triés donnée plus haut, cher- 
chons ROBERT. Le centre est occupé par PAUL. Nous 
ne conservons donc que les 3 prénoms de droite etc. 
Il convient de remarquer la progression suivante : 

Après un coup il nous reste — 1/2 fichier 

Après 2 coups il nous reste — 1/4 

Après 3 coups il nous reste - 1/8 Nota 8 = 2*2*2 

= 23 

etc 

Après 10 coups il nous reste — 1/1024 
Après 1 1 coups il nous reste — 1/2048 

Si notre table a 2048 éléments, nous trouverons la 
réponse à notre question en 1 1 coups au plus. 
La puissance de la recherche dichotomique (ou recher- 
che binaire) apparaît de façon évidente dans les der- 
niers chiffres. Aux alentours de 1000, un DOUBLE- 
MENT de la table ou du fichier qui ne consomme qu'une 
itération supplémentaire (passage de 10 à 1 1), n'al- 
longe le temps de recherche que de 10 % seulement. 
De 1024 à 1048576 (table 1024 fois plus grande) la 
durée de recherche ne fait que doubler, alors que la 
durée moyenne d'une recherche séquentielle dans les 



mêmes conditions serait évidemment multipliée par 
1024. 

On dit que la durée d'une recherche dichotomique varie 
comme le logarithme base 2 de la taille de la table. 
Il serait, néanmoins, peu judicieux défaire une recher- 
che dichotomique dans une table destinée à rester 
courte, car une itération de dichotomie est plus com- 
plexe qu'une itération séquentielle. C'est au-delà de 
30 éléments environ que la recherche dichotomique 
prend un avantage qui devient ensuite décisif puis 
écrasant. 



;CHEC ET REUSSITE 



Si l'accès au fichier se fait sur ['INDICATIF des fiches, 
le premier succès est le bon puisqu'il ne saurait y avoir 
de doublons (on les a impitoyablement supprimés lors 
de la création). 

Inversement, l'échec sera sans appel ne pouvant avoir 
que l'une des deux causes suivantes : 

- clé fausse, 

- fichier non à jour. 

Sur un critère secondaire et donc à priori suspect d'ho- 
monymie, il n'en va pas de même. En effet, le 1er suc- 
cès n'est valable que s'il correspond à l'élément le plus 
à gauche d'une série éventuelle d'homonymes, car la 
discrimination des homonymes (MARTIN employé, 
MARTIN banquier) ne pourra être faîte que par l'opé- 
rateur au vu des autres rubriques (ici la rubrique pro- 
fession). Il devra donc explorer tous les homonymes 
pour trouver le "bon". C'est par le premier d'entre eux, 
celui de gauche, que devra commencer cette 
comparaison. 

Il faut donc toujours cet élément le plus à gauche (lors- 
que le tri est dans l'ordre croissant, ce que nous sup- 
poserons toujours). 

Par ailleurs, l'échec n'en est pas un si la recherche a 
été effectuée avec une clé tronquée (RO au lieu de 
ROBERT par exemple). Ce point sera revu avec l'ac- 
cès indexé. 

Programmation *m^mmmmmmmmm 



On trouvera ci-après la recherche dichotomique élé- 
mentaire (toujours sous forme de routine), dans le cas 
d'une table. 

On suppose que le programme hôte commence par 
DEFINT a-z. 

La transposition pour un fichier sur disque ne présente 
aucune difficulté spéciale (pour ceux qui disposent d'ins- 
tructions d'accès direct, évidemment). 
"ELEM ou ELEM$" représente soit un élément de table, 
soit la ou les rubriques sur laquelle le fichier a été trié. 
Cette routine travaille sur des bornes externes. On voit 
qu'au départ ces bornes sont inîtialisées de la façon 
suivante : 
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330 *+*******♦+* 


.-R6 


340 :RErKLISTINS 1 - Dichotomie - Encadrement des Homon 


>86 


ymes vraie) 




350 b=preî-l:h=dern+l:tr=0:hh=0 


>flF 


360 : 


>ZC 


370 k=b+(h-bî \2: IF k=b THEN 480 


>ÏB 


380; IF eiemS(k)<cle$ THEN b=k:B0T0 360 ELBE If eieMtflc) 


>M 


>cle* THEN h=k:BQTD 360 




390 IF tr THEN 450 


HJ 


400 IF hh=0 THEN bb=fc-i:hh=h 


>WL 


410 IF imm THEN Qa=k: SOTO 430 


>ÏB 


420 IF eieit*ik-U=cle* THEN h=k::60T0 360 ELSE qa=k 


m 


430 : 


>ZA 


440 tr=-i: b=bfa: h=hh: k=b+i 


>VF 


450 : 


US 


460 IF k=derri THEN dr=l::RETURN 


m 


470 IF eleti*(k+l)=cie* THEN b=k:GûT0 360 ELSE dr=t;:RETU 


>BH 


RN 




480 : 


;ZF 


490 IF fmfem THEN TE^R: at=k: RETURN ELSE T6=Fft: at=h: 


>jy 


RETURN 




500 '********+*** 


>RF 



- à gauche nous avons B = prem- 1 . Nota : B comme Bas 

- à droite nous avons H = dern+ l.Nota : H comme Haut 
PREM peut valoir si en mémoire centrale on utilise 
cet indice. DERN peut être égal à la "DIM" de la table. 
Mais d'autres valeurs sont possibles à la seule condi- 
tion suivante : 

DERN doit être >=PREM 

Cette condition est vérifiée en début de routine, mais 
on peut la réincorporer au programme BASIC ou même 
la. supprimer. 

On peut aussi se servir de bornes internes, mais l'état 
des variables, avec les bornes externes, est particuliè- 
rement clair notamment en retour de routine : 
En effet, sijj = B (borne basse), recherche infructueuse. 
S'il faut afficher quelque chose, ce sera : 

- elem$(jj) en cas de succès 

- elemSjn) en cas d'échec si h < dern 



■ elemSjdern) en cas d'échec si h > dern auquel cas 
on affiche elem$(dern). 

Signification des variables : 

PREM: premier indice (0 ou 1 ou N) 

DERN: dernier indice (généralement la DIM) 

TR : trouve 

TG : trop grand [ de > elem$(dern) ] 

AF : indice de la rubrique à afficher (si l'on prévoit un 

affichage). 

Voici enfin la routine : 

: REM < Routine standard valable sans Doublons > 



IF 



pren 
Il .,u 



> dern THEN PRINT "bornes 



sées'' :chr$(7) :RETURN 

b = prem-l : h = dern + l 

ITER: 

ii = b + (h-b) 2 : IF ii = b THEN GOTO FIN 

IF demSIii < cleS THEN b=[| :GOTO ITER 

IF cle$<elem$(ii) THEN h=li :GOTO ITER 

tr = -l :af=jj : RETURN 

FIN : 

tr=0 : IFii<dernTHENtg = 0:af=h : RETURN ELSE tg = -l 

□f = ii : RETURN 



La routine appelle deux remarques, l'une sur la forme, 
l'autre sur le fond. 

Forme : la programmation a été faite sans "ELSE" 
pour mieux montrer les éléments constitutifs de la 
routine. 

Fond : si la clé est ROBERT, cette routine trouvera celui 
qui se trouve en position 6 en passant sous silence l'au- 
tre ROBERT (en 5). 

Cette routine est donc inutilisable en cas de doublons. 
Voici une deuxième version qui résout ce problème. 
Cela se fait en testant la valeur de l'élément voisin 
immédiatement à gauche (si le voisin de gauche ne s'ap- 
pelle pas ROBERT, nous sommes bien arrivés au RO- 
BERT le plus à gauche sinon... voir la routine). 

: REM < Traite les doublons-Méthode du Voisin de gauche > 



b = prem-l : h = dern+ 1 

ITER: 

ii = b + INT((h-b)/2): IF |j=b THEN GOTO FIN 

IF elem$(ii)<cle$ THËN b = ji :GOTO ITER 

IF cle$<elem$(ij) THEN h = jj :GOTO ITER 

IF ii = prem THEN tr = -1 :af = jj : RETURN 

IF elem$(ji-l)=cle$ THEN h = jj :GOTO ITER 

tr=-1 :ar = jj: RETURN 

FIN : 

tr=0:IF ij<dern THEN tg = 0: af = h: RETURN 

tg = -l : af=jj: RETURN 



isting2 



20 ' LlbTINb 2 - Dicneiamie - HoscriVSSS sur ia lonqueur 
de ia Lie 
30 ' icï Bernard BE33E - Décembre 1987 



50 DtFINT a-:: ME 2 *I 

au prem=0 >LB 

60 G0SUB 790' — Chrqt de 18111. de tabie TRI11U >CE 

100 CLS: INPuT'dern ";dern 'K. 

110 Dît! elem$(dernJ ^WS 

120 lq=2:bi*=5TRIffitila-l."."):60SUB 560 —créa chaines >HM 



1NFU T rie$":cie$:cieï='JRF'ER$'Ciei;' 



m 

>JL 
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150 IF cleS="" THEN CLEAR:£ND 'NC 

160 ir.=LENir.ie$i ' a 

!70hi:=TIflE >FE 

180 60SUB 390' — appel rerh.dicho. >J" 

190 PRINT USINB"#.###": iTIME-hl ! i /300 /Ex 

200 ff tr THEN PRINT"trouve ftlace*;«!*a*!#: EOSUB 290 >QUi 
i SOTO 250 

210 IF NOT tq THEN PRINT"Non trouve - aff*s; BOTO 230 >BK 
220 PRINT"Nûn trouve (plus qrd pue -fini- att"; /BR 

230 : >YJ 

240 PRINT qa: :i v'a! : "stleittaaî >M 

250 : )Zft 

260 BOTO 130 >VJ 

270 'IMWtWHNH routines UIMMWMin >RK 

290 ' ************ *W 

290 :REM<LISTE HOMONYMES) > m 

300 PRINT dr-qat-li^sleiTisnts ^ 

310 PRINT' liste iû/N! ": >YT 

320 WHILt INitEY$0"":t€NB >W 

330 a*=UPPER*UNtCEYt;:IF a*=" THEN 330 >FP 

340 x=INSTfti"ON l '.aïi:IF :>=0 THEN PRINT CHR*C7) : ° ' "::B0 >XA 

ÏO 310 ELBE PRINT a$ 

350 IF x=2 THEN RETURN ' ûfl 

360 FOR j=qâ 10 or: PRINT j:eieni$i »: : NEXT jj PRINT >W 

370 RETURN >V 

380 : ************ ;: '^ 

390 :RErKDICHOTOHIE/ 

400 b=prenrl:h=dern+i:tr=0:nh=O 

410 ; 

420 k=h+(h-bS\2: IF k=b THEN 530 

430 IF LEFTïielemliti.kKcle* THEN b=K:BOTO 410 ELBE I 

F ciet<LEFT*ieie«i*!fci,lci THEN h=!;:G0T0 410 

440 IF tr THEN 500 

450 IF hh=0 THEN bb=E T ii hh=h 

460 IF k=PfEm THEN qa=k: BOTO 4B0 

470 IF LEFT*(eleit*ik-i;,Ic;=cie$ THEN h=k:EOT0 410 ELSE 
qa=k 

4BÛ : 

490 tr=-l: b=Db:-h=hh: k=D+l 

500 ; 

510 IF fc=dern THEN dr=fc:RETURN 

520 IF LEFT$(eIeii*(i:+l».lc/=cIes THES b=k:60T0 410 ELSE 
dr=k:RETURN 

^70 ' 

540 IF k=dern THEN tq=-l:qa=l:: RETURN ELSE tq=û: qa=h: 

RETURN 

550 : ************ 

560 :R0Kcrea chaînes ds eleiasi' puis TRI/ 

570 RfiNDOHiZE 13 ' Lf 

5B0 FOR k=prejl TO dern •'- 

590 IF vk+1) HDD 100=0 THEN PRINT"*": 

600 ll=INTlRND*Iq)*i 

siï eie«i«w:;=p!hlPlô*al.32i 

620 FOR j=l TO 11 

:30 Hm$(eïemltki.i)=CHR$(65t!NTiRND*26i) 

640 eleni*ikl=LEFT$(eleiii$(k!+bï$.lql 



660 NEXT k 

70 IF dern=pren THEN 730 
680 ' 
690 ' Tri de slercîO 



>PC 
>UF 
>TE 
>TF 



dep=prERi+l:CALL StrilKl; ,pre(n,dep.dern.êele(itï(depl >DF 

M 
Attichaqe Table M- 

730 WÎNDDW #0.1.80.1.20 >BS 

740 FOR k=prea TO dern:PRINT CHR*C24i::PRINT USIHB"###" :■?? 
;k::FRINT CHR«i24i:" " : elemt ( t ) :"! ";:NËXT k 

PRINT: PRINT" >• 

760 HINDOU #0,1.80.21,25 » 

770 RETURN >2K 

780 '**+********* /'TF 

790. :REM<TRIii> cal"! Ëtriilm. orem. dep. dern. êeletil >EH 
de?! 

800 s»="i ":RESTORE G30: REM! n8:nl6=nB\2!iDIn tril >FQ 

Knl6! 

810 FOR k=l TO nl6:READ lï.«$:hTD*(inl«,2i=m$:t1ID$(aU,4 >PL 

l$:trill!k)=vALil»I$ï:NEXT k 
B20 RETURN " F 

830 DATA 148 * 

1 DATA BD.6E,02.DD,:6,03,DB,5E,04,DD,56,05,B7,ED,52.2 >ZZ 

850 DATA E5,EB,DD,5E,06,DD, 56.07,87, ED, 52. EB.E1.DD.4E.0 >AN 



860 DATA DD.46,01,C5,F5.EI,E5,D5.FD.E5,FD.4E,00.FD,6E,0 >A0 

1 

870 DATA FD,66,02.D5.FD,46.FD.FD.5E.FE,FD,56.tF.C5,F5,D >AL 

80 DATA E5, 04,00.05.28, Û6,0B,20,08.B0,18.0D,0D, 78,69.1 >ÏT 

890 n^ifl 08.1A.BE, 20. 04,13,23. 18.EA,E1,D1, Cl. 78,01. 38,1 >YZ 

DATA 2e.ï7.FD,70,00,FD.73.01.FD,72.02,FD,2B,FD.2B,F >Ztf 

910 DATA 2B.D1.1B.7A.B3.20.BC18, 01. D1,FD,71.00,FD, 75,0 HD 

920 DATA FD.74.02.FD.E1,FD.23,FD,23.FD.23,DI,13.E1,28.7 >ZA 

C 

930 DATA B5.20.93.C9 >NT 

940 '#«### > TDI 

En fait, on utilise souvent une routine de ce dernier type, 
même s'il n'y a pas de doublons (tri sur les indicatifs), 
dans un but de simplification, sauf si vraiment on veut 
gagner quelques centièmes de secondes. 
Cette routine n° 2 (type de base maintenant) se prête 
à deux perfectionnements importants : 

a) calcul (par dichotomie) du nombre des homonymes 
(doublons). I . 

b) même opération, mais la comparaison entre rubri- 
que et clé (c'est-à-dire entre ELEMS(JJ) et CLES) est limi- 
tée à la longueur de cette dernière. 

Prenons comme exemple une recherche où l'on aurait 
CLE$= "B" 

Dans le cas (a) la recherche sera infructueuse (a moins 
que quelqu'un ne se prénomme "B" tout court, mais 
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l'on connaîtra l'indice de l'élément immédiatement 
supérieur à la clé ("B") et par conséquent le premier 
prénom commençant par "B" ' , par exemple : 

BASILE 
Dans le cas (b) on disposera du même indice jj (celui 
de BASILE), mais on connaîtra également le nombre 
d'éléments commençant par "B". 
Ce renseignement peut être très intéressant lors des 
interrogations de fichiers par accès indexé (qui seront 
traités ultérieurement). 

La routine "améliorée (a)" est donnée en LISTING 1 . 
La routine "améliorée (b)" est donnée avec son pro- 
gramme de validation (LISTING 2). On trouvera dans 
ce programme une routine de tri, en langage machine, 
qui sera commentée ultérieurement. 

Performances i^HM^i^nHi 



Il faut retenir le chiffre de 0.1 à 0.2s suivant la taille 
de la table et surtout le type de routine. En effet, trou- 
ver la longueur de la suite d'homonymes demande un 
peu de temps supplémentaire. 

Dichotomie sur m nnr m mui ni 

Ce procédé fonctionne d'autant mieux que la zone tam- 
pon du fichier sera plus grande (par rapport à la taille 
des fiches). 

En effet, seules les premières itérations donneront lieu 
à lecture physique, les dernières lisant en mémoire tam- 
pon (lectures logiques). 

Au vu de ces seuls critères, on pourrait croire que la 
dichotomie sur disque est une méthode valable, même 
si elle n'est pas la plus rapide. 

En pratique, elle est à rejeter sauf si le fichier est tota- 
lement figé. 

En effet, les décalages nécessités par l'insertion de nou- 
velles fiches et la suppression des fiches périmées, sont 
très lents à faire sur disque. 

La seule solution (de secours) qu'on puisse envisager 
est la suivante. 

Le fichier n'est mis à jour que périodiquement. 
Entre 2 mises à jour sérieuses (refonte avec tri) : 

a) les fiches supprimées ne sont pas effacées mais sim- 
plement "marquées". Prévoir une rubrique "Valide 
/Non-Valide" d'un octet. 

Nota : pour effacer une fiche supprimée et ainsi ren- 
dre disponible la place qu'elle occupait, on l'écrase par 
un enregistrement de même longueur (souvent suite de 
CHR$(0} ou de CHR$(255). Le simple "marquage" a 
pour but de maintenir la continuité du tri. 

b) les fiches nouvelles sont stockées à part. Ce peut être 
dans un fichier séquentiel qui sera mïs en mémoire en 
début de travail. 

La recherche se fait dans le fichier principal et dans son 
annexe. 

En fait, ce n'est pas la meilleure solution. Il faut retenir 
qu'un fichier à accès direct ne devrait jamais être réor- 
ganisé. Telle fiche qui a reçu le rang 745 par applica- 
tion de telle règle ou de tel algorithme doit y rester 
jusqu'à sa suppression. Jean, en tout cas l'avait bien 
compris qui, rapidement, avait renoncé à changer de 
place les tiroirs de la cuisine. 



isting 3 



19 ' 1 STINÛ 3 - DICHOTOMIE par refus - homonymes strie >LA 
tement égaux a la de - 



Bernard BES5E - Décembre 19B7 



40 



50 DEFINI a-i 

60 mmfilmmmiMmmmfii 

70 ' DIK0 CALL Sdikoii! .n.n.êeie 

80 ' TR=0/-i, TS=0/-1. aff de eiemKHi saut si T6 (alor SW 

5 »H de eiem*(H-i!(. 



>LD 
>PB 

)LF 
,êc!»,6h.êtr.atg >LG 



100 DATA 180 

110 DATA BD.6£.04.DD.D6,05.E5.DD.6E,02.DD,66,03.E5.DB.i 

E 



>yc 



DAÏn 00.DD.66,' 



DD,5E.08.DD.a6.0?,t5 



Ei.DB.6 >ZH 



130 DATA 06.DD,i6,C,4E,23,5E,23,56.D5,DD,5E,0C,DD,5i,0 >ZE 

D 

140 DATA DD.6E.0OD,«i,0B.DD,El,E5,3E;FF,E5,D5,B7,e!,5 i >flY 

150 DATA CB.3C.CB.lD.i9.E5.B7.ED,52,2S,47,El.E5,CB,25.Ç >ZV 

B 

ItO DATA 14,D1,D5,19,FD,E5.DI,19.46,23,5E,23,5&,DD,E5,E >ÎU 

170 DATA C5, F5.D5.E5, 04. 0C.05,2S,O6,OD,2O,0B,B0. 18,00,0 >¥L 
n 

,i8,EA,E!,Dl.C1.7 >iB 



180 DATA 78,B9,1B.0B,1A.BE,20,04.13 

8 

1% DATA C1.30,05.Dl.El,E!,iB,B3,20,01.AF,Ei,Bl,00,33.3 



YN 



200 DATA lS,A9,Di,Dl.Dl.Ei,B7.ED,52.28,05.21.00,00,18,0 /YH 

210 DATA 21. FF. FF, E5, Cl. El. 71. 23. 70, 2F, El, 77, 23,77, El, 7 m 

220 DATA 23.72.C9.00 M 

230 DATA Dllffl M 

240 mmBïmmmfflmmiTîmm »S 

250 RESTORE 100:READ n8:ni6=n8\2:DIM diko(nlé>ih=0: tr=0 >HL 

260 FOR k=l T0 nl6:READ lt,i$:diko(k)=VALi"ï-:"tm*+l*i:NE M 
XT k 

270 READ i$:REST0RE 230:READ n$:IF l*=n*THEN 290 >SU 

280 PRINT"etreur nbre DATA de "sntîBffl - >MF 

290 : >'E 

300 ' iMmmnîminmiMmm ; F& 

310 : TRI 1 i CALL âtnil il! .prem.dep.dern.âelemttdepi ' >RE 
320 DATA 148 NB 

330 DATA DD,6t.02.ûD.6è,03,DD,5E,04,DD,56.05,B7.£D.52.2 >2T 

340 RATA E5,EB.DD.5E,06.DD.56.07,B7.ED.52,EB.E1,DD,4E.Û >AG 



350 DATA DD. 46.01, C5,FT), E1.E5.D5. FD, E5.FD.4E, 00, FD.6E.0 >Ai 

1 

360 DATA FD.66.02,D5,FD,4o.FD.FD.5E,FE.FD.56.FF,C5,F5,D >(£► 
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370 DATA E5,04,OC,O5.2B,O6,OD,2O,0B,B0,18,0D,0D,78,B9.1 lit 

8 

380 DATA û8,lA,BE,20,04,i3.23.iB.Ert,Ei.Dl,Ll./B,Cl,38,i >ft 

9 

390 OATrt 28,17,FD,70,00,FD.73.01,FD,/2.02,FD,2B,FD.2B,F ,ZL 

D 

400 DATA '26,Dl,16,7A.E3, 20, BC, 18,01, Dl.FD. 71. 00, FD. 75,0 >YX 

1 

410 DATA FB,74,02,FB,El,FD,23,FD,23,FD,23.Di,13,El,2B.7 >2U 

C 

420 DATA B5, 20,93,09 >*■ 

430 DATA TRI1 Hit 

440 ' mmfflminmmmmnîfflm ; TU 

450 RESTORE 320:READ 5tittlé«n8\2:MM tnlltnlti >RJ 

460 FOR k=l TD nl6:READ l*,«lt:triii (ki=VALi"i"+«*+l*!:N >EZ 

EXT k 

470 READ 1*:REST0RE 430:READ n$:ÏF l*=n*THEN 490 m 

480 PRINT'erreur nbre DATA de ";n*:END 'M 

490 : >Ï6 

500 fnmmmmcnmmmmmtrt NN chaînes aléa de lanq aléa 1<= LL < *RF 

= LG 

510 CLB 

520 RANDONIZE 13 

530 prsflFÔ 

540 INPUT"dernier";dern 

550 lq=3 

560 DIM eïeinstderaî 

570 FOR k=pra» TO dern 

580 IF (K+DHOD 100=0 THEN PRINT"*"; >0i 

590 ll=INT(RND*lq)+l ï« 

600 ele»*(ti=STRINB$(11.32) >«H 

610 FOR j=l TO 11 Hfl 

620 MIW(ele»$(k),j>=CHR$l65+INT<RND»26)l >LK 

630 NEXT i >" 

640 NEXT k >F'A 

650 PRINT" tri... ;: NU 

660 CALLÉ tt'illfl),pre«i,cre«+l,deiTi.ëeleii*(pre«i+l! >W i 

670 CLSiWINDOMftO, 1,30, 1,22 Mff 

680 PRÏNT eiefltèiprefn) ; ^ 

690 FOR k=preu+t TO ûern:FfiINT". ":elem*ik! iiNEST k M 

700 PRINT:PRINT STRINStiBO,"-") i 'M 

710 BINDOWtO.l. 80.23,25 >8N 

720 ' mfTifflmmmmmmmfnm ^ 

730 : >a 

740 INPUT"Cïe ";cO*:cOt=uPPERi(cO$i >& 

750 IF cO*="" THEN CLEAR:END 'M 

760 CALL êdiko (i i , preœ-1 ,dern+i . ielem* (0) .ScOï, ih, âtr-, S M 

t? 

770 IF NOT tr THEN 790 

780 PRINT"TR";h;:BOTO 810 

790 : 

800 PFINT"nan trouve "iilF to THEN PRINT"trop grand "; >HR 

810 : >Œ 

820 PRINT"- At+ich:";: IF NOT tg THEN PRINT ti:eIeu*(h'!;E >KK 

LSE PRINT h-l:elen$(h-l): 

830 ' 'TE 



840 IF NOT tr THEN 910 >F'R 

850 nc=L£N(cO$)ihO* >F'N 
860 ci*=STP,IN8*(nc+l,32):n'ID*lcl*,l)=cO*' — soit cl$=c >HH 
0$+" " 

870 ' 'TF 
880 CALL editafli.h,dern+l,8eleint(0i,ëcl*,lh,etr,itg >XW 

390 ; 'TH 

900 nb=h-hO:PRINT" - nbre de foie";nb; >LB 

910 : 'H> 

920 PRINT >F'û 

930 BOTD 730 >ÏJ 

940 END > TG 

950 '##!##* >TEI 



Langage machine an^HMH 

Une routine machine sera facilement 10 fois plus rapide 
(0.0 1 s au lieu de 0. 1 s.) . Mais est-elle bien nécessaire ? 
Une réponse à l'écran en 0. 1 sec. (lorsque le fichier est 
en mémoire) n'est-elle pas suffisante ? 
Par ailleurs, il est beaucoup plus facile de réaliser en 
BASIC qu'en Assembleur, les différentes variantes de 
recherche dichotomique, dont on peut avoir besoin. 
C'est surtout à d'autres tâches qu'il faudra utiliser l'as- 
sembleur pour obtenir des gains de temps substantiels 
et souvent indispensables (routines de recopie et routi- 
nes de décalage). 

On trouvera néanmoins une routine machine en LIS- 
TING 3. Cette routine ne remplit pas la fonction 
"recherche nombre d'homonymes vrais" ou "nombre 
d'homonymes sur la longueur de la clé". Le programme 
de validation qui présente cette routine montre une 
façon de résoudre cependant le premier problème. 
Le LISTING 4 donne les lignes à changer pour obtenir 
la solution du second. 

L'algorithme utilisé dans cette routine machine n'est pas 
celui du "voisin de gauche" mars celui du refus qui 
amène toujours à la situation finale suivante : 
E=JJ, H= B+l 

Si H <=DERN, on regarde alors si CLES = ELEMS(H). 
Si c'est le cas, on a trouvé et H indique le rang de l'élé- 
ment le plus à gauche. 



ig 4 

325 ' t 5TIN6 4 - Hoianyiaes dont le début est eqal a la >TF 

pi r 

m >TB 

840 h0=h:IF tg THEN 890 ElSE nc=LEN(c0t) : IF tr THEN cl* >MR 
=ri»:60T0 860 , 

850 IF'cO*=LEFT*ieleni*ihi,ra:) THEN cl*=LEFT*(eiei»*(h),n >LU 
c! ELSE 910 

B60 : >ZH 

870 der=ASCiRI6HT«(d»,l))+!:rlID*icl*,nc)=CHR*ideri m 
B80 CALL 8diko!i;\h,derri+l,ëelei»$(0),ecl$.8h,etr,8tq >X» 
390 : m 

700 nb=h-hO:PRINT " - nbre de tois'înbj J LZ 

910 : > ZD 

«c . >TFI 
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ROGRAMMAT 



CONSTRUCTION 
D'UNE MIREHMAGES 
AVEC ABERRATION 
EN BARILLET* 
IMAGE FISH EYE* 



AVANCEE 



CAO 



MICRO 



CPC 



014 



eme 



PARTIE 



i 



Jean-Pierre PETIT 



Jean-Pierre PETIT est directeur de recherche au CNRS. Il est l'auteur d un logiciel de CAO de 

1 20 Ko intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le logiciel a été 

délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le copier sur une 

disquette AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. 

Ce livre est un gros mode d'emploi du logiciel pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. 

Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur toutes ses astuces, ce qui 

lui permettra de construire lui-même son propre programme de CAO. 



Cet article fait suite à celui paru 
dans le n° 32. En conséquence 
tous les listings dont il est fait men- 
tion au cours du texte se trouvent 
dans le numéro précédent. Nous 
poursuivons donc l'étude des ima- 
ges avec aberration 



CREATION DU BLOC 

D'OBJET CONSTITUANT 

LA MIRE 3D 

Nous allons créer une mire tridimension- 
nelle, qui mettra au mieux en évidence 
les distorsions. 

Rappel : entrez dans la chaîne de traite- 
ment par 

RUN"BANKMAN 
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RUN"DMP2000 (si vous envisagez défai- 
re des hardcopies). 
RUN"MOD1 

Nous allons créer un objet qui sera une 

suite de segments situés sur OY. Voici 

la suite des ordres : 

a-Créer un objet 

a-Créer chaîne par chaîne 

Nombre de segments 12 (Vous savez 



Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur avec 

; 50 F pour le port, ou plus simplement 
90 F sans ia disquette à l'adresse 

; ; suivante : 
Jean-Pierre PETIT, Chemin de la 
Montagnère, 84120 Pertois, Vauclu- 



qu'on est limité à 12 segments) 

Point numéro 1 

XT=?0 

YT=?0 

ZT=?0 

Point numéro 2 

XT-70 

YT=?1 

ZT=?0 

Point numéro 3 



Signalons que J.P. PETIT peut vous four- 
nir une version tournant sur 464 avec lec- 
teur externe, ceci grâce aux modifications 
apportées. En effet CHAIN ne marche pas 
dans te 464. Il a donc fallu le simuler en 
stockant et en rechargeant les fichiers rési- 
dents à chaque transfert. Par ailleurs, il 
y a quelques différences dans las syn- 
taxes respectives (effaçage fichiers, bas- 
culement de pages-écran). Problème ré- 
solu grâce à l'obligeance de monsieur 
Vibert, de Garches. 

• • • 
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XT=?0 

YT=?2 

ZT=?0 

Point numéro 4 

XT=?0 

YT=?2.5 

ZT=?0 

Point numéro 5- 

XT=?0 

YT=?3 

ZT=?0 

Point numéro 6 

XT=?0 

YT=?3.25 

ZT=?0 

Point numéro 7 

XT=?0 

YT=?3.5 

ZT=?0 

Point numéro 8 

XT=?0 

YT = ? 3.75 



• ZT = ? 
Point numéro 9 
XT = ?0 
YT=?4 
ZT=?0 
Point numéro 10 
XT = ?0 
YT = ? 4.5 
ZT=?0 
Point numéro 11 
XT=?0 
YT=?5 
ZT = ? 
Point numéro 12 
XT=?0 
YT=?6 
ZT=?0 
Point numéro 13 
XT=?0 
YT=?7 
ZT=?0 



Une erreur ? N 

Une autre chaîne ? N 

Nous avons volontairement serré les 
points au centre de l'objet et la raison de 
ce choix apparaîtra plus tard. Nous sto- 
ckons cet objet en l'appelant 01 : 
c-Stocker un objet 
Nom de l'objet ? 01 

Nous allons maintenant manipuler cet ob- 
jet 01 en effectuant une translation d'une 
unité selon OZ. 

g-Manipuler objet ou bloc (qui vous fera 

chaîner sur MOD2) 

a-Objet 

Objet résident 01 

On garde ? O 

a-Translation 

Vecteur translation 

DX = ?0 

DY=?0 

DZ = ?1 

Que vous pouvez visualiser à l'aide de 

k-Voir 

Désirez-vous un tracé du trièdre ? 
(A condition que vous ayez créé ou que 
vous disposiez déjà de l'objet TRIEDRE, 
servant de simple repère pour la position 
des objets, sinon, fabriquez-le). 

Attention : si vous voyez sur l'écran appa- 
raître : 




Ceci proviendra du fait que vous aurez 
oublié défaire RUN"BANKMAN, en consé- 



On constatera, en faisant retour au menu 
principal, que l'objet ainsi manipulé, cons- 
titué d'une chaîne unique, a perdu son 
nom. En effet il ne s'identifie plus main- 
tenant avec l'objet 01 présent sur la dis- 





Figure 2 : 

les deux segments soudés. 

Après la fusion. 




Figure 3 : 

deux fois, deux segments soudés. 



quence P AMSTRAD ne reconnaît pas le 

SCREENCOPY. 

Vous obtiendrez l'image en figure 1 . 

Vous aurez ensuite : 



Unknowncommandin 12060 (Commande Hardcopy ?N 
inconnue en 12060) Sauver sur disquette ?N 



quette. Sauvez cet objet en l'appelant 02. 
c-Stocker un objet 
Nom de l'objet ? 02 

Nous allons maintenant fusionner cet objet 
avec l'objet 01 , tel qu'il est sur la disquette, 
et, pour ce faire, nous suivrons la sé- 
quence : 



88 



CPCn° 33 -Avril 1988 



h-Fusions diverses 

a-Fusion objets 

Objet résident 02 

On garde ? O 

à fusionner avec objet ? 01 

Nouvel objet à fusionner ? <Return> (qui 

termine la fusion) 

Retour au menu principal. Un appel de 
l'option 
k-Voir 

devra alors vous donner l'image eu figu- 
re 2. 

Vous allez stocker cet objet en l'appelant 
03, selon : 

c-Stocker un objet 
Nom de l'objet ? 03 

Nouvelle manipulation de cet objet (tou- 
jours en mémoire centrale) selon une 
translation (0,0,2). 

g-Manipuler objet ou bloc 

a -Objet 

Objet résident 03 

On garde ? O 

a-Translation 

Vecteur translation 




DX=?0 
DY=?0 
DZ=?2 

Jetez un coup d'œil si vous le voulez, puis, 
immédiatement après, enchaînons la se- 
conde fusion avec l'objet 03 tel qu'il est 
sur la disquette : 

h-Fusions diverses 

a-Fusion objets 

Objet sans nom présent en mémoire 

On garde ? O 

a fusionner avec objet ? 03 

Nouvel objet à fusionner ? <Return> 

Cette fois-ci, si vous activez VOIR, vous 
devrez voir la figure 3. 

Stockez selon : 

c-Stocker un objet 
Nom de l'objet 04 

Nous stockons les étapes intermédiaires, 
quitte à détruire ces objets à la fin, comme 
cela, s'il y a une erreur, on peut revenir 
en arrière. 

Nous allons rééditer cette opération pour 
disposer d'un objet constitué de huit seg- 
ments situés les uns au-dessus des au- 



tres. Ceci passera par une nouvelle trans- 
lation (0, 0, 4) de l'objet résident, suivie 




d'une fusion avec l'objet 04, sur disquette, 
et un restockage selon 05. Dans la foulée : 

g-Manipuler objet ou bloc 

a -Objet 

Objet résident 04 

On garde ? O 

a-Translation 

DX = ?0 

DY = ?0 

DZ=?4 

h-Fusions diverses 

a-Fusion objets 

Objet sans nom présent en mémoire 



PROTEGEZ 
VOS REVUES! 

BON DE COMMANDE CLASSEUR (port inclus) 



NOM 



- Prénom 



Adresse 



Code postal 



.Ville 



Je désire recevoir 

| Classeur(s) THEORIC : 80 F 

[ Classeur(s) AMSTAR : 60 F 

i _| Classeur(s) PCompatibles Magazine : 60 F 




| Classeur(s) CPC : 60 F 

l Classeur(s) MEGAHERTZ : 80 F 

Signature 



Cl joint chèque de 



F au nom des Editions SORACOM - La Haie de Pan -35170 BRUZ 
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Figure 5 
Les deux barres 
verticales 
correspondent 
à l'objet 01. j, 


"«^ 

^ 



** 


. 


^ 










I 


Figure 6 
L'objet 03 : 
huit barres 
verticales. 



Figure 7 

Vue automatique 

de l'objet 





On garde ? O 

à fusionner avec objet ? 04 

Nouvel objet à fusionner ? <Return> 



11 5 

12 6 

13 7 



c-Stocker un objet 








Et vous rééditez l'opération en créant une 


Nom de l'objet a stocker ? 









suite de barres verticales, à l'aide, à cha- 
que fois, d'une translation ( 0,1 ,0 ). Voici 


Si vous avez fait un parcours sans faute 


la suite des ordres correspondants, dans 


vous devez obtenir l'objet 


de 


8 chaînes 


la foulée. 


en figure 4. 








Création de cette chaîne rectiligne, puis 
c-Sauver un objet 


Maintenant vous recomme 


nce 
ne s 


rez 


3n par- 


Nom de l'objet 01 


tant d'un objet 01 qui est u 


uite de 12 


g-Manipuler objet ou bloc 


segments placés sur l'axe 


OZ et corres- 


a-Objet 


pondant aux points : 








objet résident 01 
on garde ? 


Point numéro 


X 


Y 


Z 


a-Translation 


1 











DX = ?0 


2 








1 


DY = ? 1 {translation d'une unité selon OY) 


3 








2 


DZ.?0 


4 








2.5 


h-Fusions diverses 


5 








3 


a-Fusion objets 


Nombre de segments 6 








3.25 


Objet sans nom présent en mémoire 


12 7 








3.5 


on garde ? 


8 








3.75 


à fusionner avec l'objet ? 01 


9 








4 


Nouvel objet à fusionner ? <Return> 


10 








4.5 


c-Sauver un objet 



Nom de l'objet ? 01 

Cette suite d'ordres a mis dans 01 deux 
barres verticales identiques. (Figure 5) 

Rééditez la même séquence, mais avec ; 

DX = ?0 DX = ?0 

DY = ? 2 puis DY = ? 4 
DZ = ? DZ = ? 

Faites tous les stockages et les images 
intermédiaires que vous voudrez, si vous 
avez peur de vous tromper. Par exemple 
l'ensemble de quatre barres-sera l'objet 
02 et les huit barres verticales l'objet 03. 
(Figure 6) 

Faites ensuite : 

h-Fusions diverses 

a-Fusion objets 

Objet résident 03 

On garde ? O 

A fusionner avec objet ? O 

Nouvel objet à fusionner ? <Return > 

c-Stocker un objet 
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La mire vue V 
d'une distance de 4 V^ 


L 


\ 








angulaire 45°: : 




t 


1 






-^ A 




i^a mire vue 
d'une; distance de 2,1 
unités. Ouverture 
angulaire 70°; 



La mire vue 
d'pnè distance de 0,6 

unité- Ouverture 
mgulaîfé 90°. 



Nom de l'objet ? MIRE 

Ceci correspondant à la figure 7. 

IMAGES AVEC 
ABERRATION 

EN BARILLET 

Nous allons nous placer dans l'axe de 
cet ensemble, dont la trace sur le plan 
YOZ est un point de coordonnées (0 ; 3,5 ; 
3,5). Tirons une première image en nous 
plaçant à une distance de douze unités 
selon OX : 

CPC n° 33 - Avril 1988 



l-Créerune image 

a-Objet en mémoire 

Objet résident MIRE 

On garde ? O 

a-Saisie point de vue au clavier 

(seule option disponible présentement 

d'ailleurs). 

Coordonnées observateur : 

X = ?12 

Y = ? 3.5 

Z = ? 3.5 

Coordonnées point visé : 

XG = ?0 

YG = ? 3.5 

ZG = ? 3.5 

Ouverture angulaire 



20 degrés par défaut ? <Return> (Figure 
8) 

Vous pouvez, cette fois, faire une hard- 
copy de cette image, ou la stocker sur 
une disquette spéciale images (les images 
dévorent 1 7 K). La déformation de l'image 
reste faible. On décèle pourtant une légère 
concavité. 

CHANGEMENT 
D'OBJECTIF 

Ensuite, toujours en visant le point (0 ; 
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3.5 ; 3.5), vous engendrerez des vues de 
l'objet MIRE en diminuant la distance et 
en accroissant l'ouverture angulaire. Vous 
allez vous retrouver dans la peau d'un 
photographe qui s'approcherait de plus 
en plus d'un objet en variant la focale de 
son objectif-zoom. Mais nous allons ici 
pouvoir disposer d'un zoom incroyable 
puisqu'il permet de passertranquillement 
du téléobjectif à l'objectif fisheye ! 

Les paramètres des figures 9, 10, 11, 12 
correspondront à 

Position observateur : 

Figure 9 : 
X = ?4 

Y = ? 3.5 
Z = ? 3.5 

Ouverture angulaire : 45 

(On ajuste à chaque fois la distance pour 
être "plein cadre") 

Figure 10 : 
X = ?2 

Y = ? 3.5 

Z . ? 3.5 

Ouverture angulaire : 60 




Figure 11 : 
X = ? 2.1 
Y=?3.5 
Z = ? 3.5 

Ouverture angulaire : 70 

Figure 12 : 
X = ? 0.6 
Y = ? 3.5 
Z = ? 3.5 

Ouverture angulaire : 90 (fisheye) 

On a donc vu cet objet plan acquérir pro- 
gressivement à l'image une convexité de 
plus en plus importante, jusqu'à ressem- 
bler pratiquement à une sphère (objectif 
fisheye). On voit donc que la représen- 
tation en perspective courbe les segments. 
Si nous n'avions pasfragmenté judicieuse- 
ment nos segments pour permettre à cette 
courbure d'apparaître, nous aurions ob- 
tenu un dessin complètement faux, cons- 
titué de segments de droites {comme on 
vous en montre d'ailleurs à la télévision 
dans les films montrant des images de 



synthèse calculées avec des vues rap- 
prochées). 

Dans la suite de ce travail, nous cons- 
truirons une routine de négociation auto- 
matique d'aberration, qui nous permet- 
tra d'obtenir des images correctes pour 
toutes les focales, ce qu'aucun logiciel 
actuel ne fait. 

Ceci dit, ta leçon suivante vous montrera 
comment effectuertoutes ces opérations 
de synthèse d'objet avec quinze fois moins 
de manipulations, à travers les routines : 

TRANSLATION-ROTATION-FUSION 
SUR OBJET 

TRANSLATION-ROTATION-FUSION 
SUR BLOC 

AMSTRAD-3D est un objectif comme vous 
n'en trouverez jamais dans la nature. Nous 
explorerons cette possibilité ultérieure- 
ment. Il permet de dépasser le fisheye. 
Vous pouvez essayer et choisir des ou- 
vertures angulaires de 120°, ou 150°,- ou 
même 1 80 (objectif œil de mouche). Et il 
est le seul à pouvoir le faire. Avec cette 
dernière valeur, on arrive à se faire une 
idée de ce que voit une mouche. 
Mais cela, comme dirait Kipling, est une 
autre histoire... 




4 REVUES POUR LES PASSIONNES 

CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez chez vous 
votre revue. Vous bénéficierez de réductions sur certains produits et vous recevrez gratuitement un 
numéroHORS SERIE tous les deux mois, dédié à Amstrad. 

AMSTÂR : en avant-première, toutes les nouveautés sur AMSTRAD - des programmes, des ar- 
ticles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatibles Magazine : la référence en matière d'initiation et de perfectionnement sur les "com- 
patibles PC". 

ARCADES : à peine sortis, des dizaines de jeux passés au peigne fin. Des interviews d'auteurs 
des rencontres avec les éditeurs : le mensuel des fans de jeux sur toutes machines. 



□ CPC AMSTRAD 
□ CPC AMSTRAD 
□ AMSTAR 

a PCompatibles Magazine 
□ Arcades 

NOM 



11 numéros__220 F 

6 numéros 120 F 

11 numéros 140 F 

11 numéros_200 F 
11 numéros_200 F 

. Prénom - 



Attention, tous nos abonnés 

reçoivent avant parution des 

souscriptions sur les 

nouveaux livres ! 



Code postal - 
Date 



. Ville — 

. Signature 



Je m'abonne à : 

Merci d'écrire en MAJUSCULES. Cl-jolm un chèque Ibellé à Tordre de : 
Editions SORACQ M- Service abonnement - BP 11 - 35170 BRUZ- Retournez le(s) bulletin(s) o 
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